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Abstract 


In the traditional “waterfall’’ model of the software project life cycle, the Requirements 
Phase ends and flows into the Design Phase, which ends and flows into the Development 
Phase. Unfortunately, the process rarely, if ever, works so smoothly in practice. Instead, 
software developers often receive new requirements, or modifications to the original 
requirements, well after the earlier project phases have been completed. In particular, 
projects with shorter than ideal schedules are highly susceptible to frequent requirements 
changes, as the software requirements analysis phase is often forced to begin before the 
overall system requirements and top-level design are complete. This results in later 
modifications to the software requirements, even though the software design and 
development phases may be complete. Requirements changes received in the later stages 
of a software project inevitably lead to modification of existing developed software. 
Presented here is a series of software design techniques that can greatly reduce the 
impact of last-minute requirements changes. These techniques were successfully used to 
add built-in flexibility to two complex software systems in which the requirements were 
expected to (and did) change frequently. These large, real-time systems were developed at 
NASA Langley Research Center (LaRC) to test and control the Lidar In-Space Technology 
Experiment (LITE) instrument which flew aboard the space shuttle Discovery as the 
primary payload on the STS-64 mission. Although developed in the Ada programming 
language, most of these methods are language-independent and can easily be modified to 
be used in any high-level language. 
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Acronym List 


AT 

IBM PC AT 

CAP 

Command Acceptance Pattern 

CDR 

Critical Design Review 

CFG 

Command File Generator 

DOD 

Department of Defense 

GSE 

Ground Support Equipment 

IC 

Instrument Controller 

I&T 

Integration and Test 

JSC 

Johnson Space Center 

KSC 

Kennedy Space Center 

LaRC 

Langley Research Center 

Lidar 

Light Detection and Ranging 

LITE 

Lidar In-space Technology Experiment 

MSFC 

Marshall Space Flight Center 

NASCOM 

NASA Communications 

OOD 

Object Oriented Design 

PIC 

Payload Interface Converter 

PGSC 

Payload General Support Computer 

POCC 

Payload Operations Control Computer 

SFMDM 

Smart Flexible Multiplexer DeMultiplexer 

SRS 

System Requirements Specification 

STS 

Space Transportation System 
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1 . 


Introduction 


The Lidar In-space Technology Experiment (LITE) is a three-wavelength backscatter lidar 
developed by NASA Langley Research Center (LaRC) that flew on the space shuttle 
Discovery in September 1994 as primary payload on the STS-64 mission. Lidar (Light 
Detection ad Ranging) is a remote sensing technique that can be used to study clouds ad 
aerosols in the atmosphere by sending out short pulses of laserlight and detecting the 
portion scattered back to the instrument. The goals of the LITE mission were to validate 
key lidar technologies for spacebome applications, to explore the applications of space 
lidar, and to gain operational experience which will benefit the development of future 
systems on free-flying satellite platforms. The 40 Gbytes of science data collected 
provide the first highly detailed global view of the vertical structure of clouds and aerosols 
from the Earth's surface through the middle stratosphere. LITE also provided the first 
demonstration of space lidar for study of the Earth's atmosphere and resulted in the 
collection of 53 hours of data, equivalent to 35 orbits of the Earth. This is the first data set 
that provides the highly detailed vertical structure of clouds and aerosols on a global scale. 
The success of the mission demonstrates the maturity of lidar technology and the potential 
for long-term orbital lidars on free-flying platforms. The LITE mission is detailed further 

in [11- 

Two sets of real-time Ground Support Equipment (GSE) software were required for the 
development, integration, test and flight of the LITE payload. Integration and test 
required a real-time platform that simulated absent shuttle interfaces, displayed 
engineering and science data and provided a means for commanding the instrument. 
Mission software was required for use in the Payload Operations Control Computer 
(POCC) facility for commanding and data display during the flight. The software team 
was assembled with 18 months to develop and deliver the test GSE and, following a 
successful test at Kennedy Space Center (KSC), 12 months to develop and deliver mission 
critical ground software to Johnson Space Center (JSC) for integration into the POCC. 

The test GSE was developed in parallel with the instrument and was required to simulate 
yet-to-be-defined interfaces. The mission software would follow-on from the test 
software but would require major changes to accommodate new interfaces onboard the 
shuttle and at JSC. Both systems were developed on an accelerated schedule by small 
teams of three to five people. We knew we had to design for change. In order to design 
for change, we needed to predict what could change and when. This required that we 
understand why software requirements changes occur. Five change agents were 
identified: immature system requirements, documentation, detail comprehension, shifting 
user requirements and external influences. As immature external requirements were 
defined and new ones added, our design needed to minimize impact on the existing 
system. The decision was made to counter risk by driving the uncertainty into the data, as 
opposed to the code, through the use of external files. 

The following sections will describe techniques used on these systems to build in 
flexibility in order to minimize the impact of late requirements changes on the software 
systems. A history of the LITE payload is provided for context. The disconnect between 
academic life cycle models and their application in our working environment is presented 


3 



along with our chosen data-driven approach. Finally, the philosophies and techniques that 
were successfully used in designing for change are discussed in detail. 


2. LITE History 

During the 10-day mission, commanding of the LITE instrument was accomplished 
primarily from Mission Control at JSC in Houston. All commands are received by the on- 
board Instrument Controller (IC), which parses the commands and relays them to the Aft 
Optics or Boresight Assembly subsystems, if required. The IC executes instrument level 
commands. The LITE instrument command set is very versatile, including over 200 
commands to control every facet of the instrument operation. The LITE Command File 
Generator (CFG) operated without error for the entire mission duration. 

The CFG is a relatively large (over 30,000 Ada statements), PC-based real-time platform 
from which all commands were issued to the LITE instrument during its 10-day mission. 

It was developed specifically for LITE and allowed for commanding the IC directly or via 
the Payload General Support Computer (PGSC) in the shuttle flight deck. The CFG 
requirements [2] are summarized in Table 1. 



Requirement 

Center 

Reference 

1 

Display relevant Payload Data Interleaver (PDI) and 
LITE data 

LaRC 

JSC 


2 

Retrieve instrument data from Lantastics network 

LaRC 


3 

Conform to NASA Communication (NASCOM) 
uplink format 

JSC 

[3] 

4 

Conform to Smart Flexible Multiplexer Demultiplexer 
command format 

MSFC 

[5] 

5 

Conform to LITE IC command format 

LaRC 

[4] 

6 

Conform to PGSC command format 

MSFC 

[5] 

7 

Interface directly to Payload Interface Converter (PIC) 
for uplink commands 

JSC 

[3] 

8 

Receive Command Acceptance Pattern (CAP) from 
PIC 

JSC 

[3] 


Table 1: CFG Requirements 


As shown in Table 1, requirements from numerous N/vSA centers and, therefore, 
numerous documents, had to be understood and merged in order to generate the CFG 
requirements and platform. Figure 1 shows the CFG c ata path. 
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Figure 1: LITE CFG Data Path 

Before any resources could be put towards the design, development and delivery of a 
mission commanding platform, test GSE was needed for integration and test of LITE at 
LaRC and KSC. Software was brought in late in the LITE project lifecycle. Any and all 
problems that had been hand-waved off with “we’ll take care of that in software” had to 
be addressed. The IC was the heart of the LITE instrument and had no formal 
requirements. The LITE instrument needed to be fully integrated and tested in 1 8 months. 
Test GSE development would have to be in parallel with the design of the IC software and 
integration of the instrument. 

The Pallet Simulator (Figure 2) is a large (over 60,000 Ada statements), real-time, 
distributed system consisting of three platforms: Master AT, Display AT, and Quicklook 
AT. The Master AT interfaced directly with the LITE instrument via in-house GSE. It 
simulated a shuttle interface, the Smart Flexible Multiplexer Demultiplexer (SFMDM) [5], 
through which all commands and engineering data were transferred. For test purposes, it 
also provided the instrument interface for science data, again though in-house GSE. 
Because this platform simulated a shuttle interface, the real-time requirements of the 
system were its first priority and could not be compromised. These requirements were 
successfully married with the storage of science and engineering data along with the 
transfer of data to the appropriate platform, either the Quicklook AT or the Display AT. 
These two platforms were receive-only except for communication health checks with the 
Master AT and, therefore, did not interface directly with the instrument. For this reason, 
discussion of the Pallet simulator will be limited to the Master AT software only. 

The design and development of the Master AT (IBM PC AT) software coincided with the 
design, integration and test of the LITE instrument. Therefore, requirements changes were 
inevitable. The team was forced to devise an approach that would allow for built-in 
system flexibility. Because the instrument was still at the subsystem level, the IC was still 
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at the conceptual stage. Instrument commanding and data handling were undefined. We 
needed autonomy but did not have an operations scenario. Little thought had been given 
to exactly how these items would be accomplished. What would a LITE command look 
like? What was the downlink data format? We had the challenge of developing a test 
system for an instrument that was, from a software perspective, undefined. The flight 
software and GSE software would be defined, designed, developed and tested in parallel 
alongside the instrument itself. 


LITE Instrument 






Data 

L w 


^ Commands 

W 

Master AT 



Display AT 

m 

\ 
Quickiook AT 


Pallet Simulator | 


Figure 2: Master AT Architecture 


The software team was faced with a challenge. The CFG would follow-on from the 
Master AT. The Master AT had to be delivered coinc dent with the semi-specified LITE 
instrument and the unspecified LITE IC. Figure 3 illustrates the major milestones in the 
LITE project timeline. Each box marks the beginning of the specified task but is not 
intended to communicate task duration. Of particular interest, the final System 
Requirement Specification (SRS) was not available until the Master AT software was 
delivered and the CFG software was in development. 
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Figure 3: LITE Project Major Milestones 


We needed to design and code to minimize system impacts when changes occurred. We 
also needed to design with reuse in mind knowing that the CFG would leverage off the 
Master AT development. The traditional waterfall model where all activity of a certain 
type occurs during a phase of the same name and in which phases do not overlap [6], was 
simply not an appropriate model. The spiral model requires several revolutions requiring 
time and experience, neither of which we had in abundance. We needed an approach 
suitable for the accelerated schedule under which we were to develop mission-critical 
GSE. Prototyping seemed the best choice but was not entirely appropriate given our short 
schedule and real time requirements. We combined the appropriate philosophies from 
several models in creating a data-driven approach that was workable within our short 
development schedule. We also needed to design for change. The area most susceptible 
to change was the data so we countered risk by using a data-driven design that generated 
code to accommodate changes in external text files. Presented here are the design and 
coding techniques used in the development of these complex platforms. 
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3. The Unstable Process of Software Design and Development 

Change is a very natural and intrinsic aspect of the software development process. For 
example, change occurs [7]: 

• during software requirements analysis phase, when the software requirements 
specification is agreed to by all parties and is baselined. 

• during software development and test, when the software design, or the code, 
or the test plans are completed. 

• during software maintenance, when requirements have changed or matured, 
and 

• during software maintenance or later enhancement, when a problem is detected 
in the software requirements or system that forces modifications to the design 
or the code or the test plan. 

Knowing that software will change is not enough. In order to design for change, one must 
understand why software will change. 

3. 1 Immature System Requirements 

The trend to implement in software functions traditionally accomplished by hardware 
devices has led to increased size and complexity of software subsystems [18]. 

Historically, software has been a very small part of the total project cost and was managed 
as such. Older paradigms provide little or no guidance for managing software projects [8]. 
As a result, the need for software often goes unrecognized at the beginning stages of a 
project. Even once the need for software is recognized, the resources required are often 
underestimated, especially in the early requirements specifications and design phases. The 
software team regularly plays catch-up to the more mature project. However, this 
maturity is often limited to the subsystem level and does not apply to the system as a 
whole. The software team serves double duty as both software developers and system 
engineers [8]. In order to develop software requirements, system questions must be asked 
and answered. Often, these questions are first asked ir the software requirements 
specification effort. These questions cannot always be answered immediately and, if the 
software team waits until the system is fully defined (all the questions are answered), 
schedules would never be met. As the system evolves, system requirements will change 
imposing new requirements on the software. However, even with a relatively stable 
system, the unstable process remains. 

3.2 Documentation 

Documentation alone is a weak communication medium [9]. CFG gathered and merged 
requirements from three NASA centers and four systems. Conflict among requirements is 
not uncommon in large systems [9] and the CFG was ro exception. All PGSC commands 
are routed through the SFMDM. However, [5] stated that all SFMDM commands were to 
be 32 words in length while all PGSC commands were to be 30 words in length. This 
ambiguity was not uncovered until End-to-End test at JSC, very late in the project time 
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line. If more verbal communication had been possible earlier, this problem could have 
been caught while we were still developing at LaRC. The documentation could have been 
clarified and the problem solved much faster. 

3.3 Detail Comprehension 

It is impossible to see every requirement at first glance. Many of the details become 
known as we progress through the implementation [10]. Often one does not know the 
questions that need to be asked until faced with an implementation question. Even if we 
knew every requirement, experience shows that people are unable to fully comprehend the 
plethora of details that must be taken into account in order to design and build a correct 
system [10]. For this reason, as the picture of what is required of the software system 
becomes clearer, changes will occur. 

3.4 User Requirements 

In many cases, those who commission the building of a software system cannot specify 
exactly what they want nor are they able to communicate everything they know up front. 
There is a cultural gap between the developer and the customer [11]. The developer has 
the skills necessary to meet the customer requirements but does not have a complete 
understanding of the application while the customer has a complete view of the 
application but cannot know the capabilities of the software. This is often the case with 
mission GSE. The user specifies that a system is needed for commanding or to display 
science data. Often, little thought has been given to exactly what the user wants to see and 
how the user will interact with the system. Scientists and engineers are busy at the 
subsystem level while the software developers are working at the system level. Software 
prototyping has been proposed as a solution to this problem and the generation of a 
strawman concept is useful in minimizing the impact of changing user interface 
requirements. However, we found that there is a limit to how far ahead a system can be 
prototyped. No amount of prototyping can predict the wants and wishes of the users once 
the system is integrated, new system hot spots have been discovered and the community of 
users changes. 

3.5 External Influences 

Because software is intangible, it is constantly subject to pressures for change [12]. This 
can be due to “creeping elegance”, an altered interface, “planned” flexibility, or the need 
to fix a system problem. In any case, no traces are cut, no connectors demated, and, 
usually, flight configuration is not broken when a software change is made. Software can 
be viewed as infinitely malleable and an inexpensive fix since it can be changed “more 
easily” than hardware. To some degree, this is true, especially in the later phases of the 
project life cycle. When external interfaces change, the software is often expected to 
change in order to accommodate the new requirements. When a new capability of deemed 
necessary, software is often expected to provide this functionality. 
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4. Software Development Approaches 

Three widely accepted approaches to software development are the waterfall life cycle 
model, the spiral life cycle model and prototyping. While we recognized the merit of 
these schemes, careful examination proved that no single one of them would meet our 
needs given the immature system requirements and the accelerated project schedule. We 
selected the most fitting aspects from these well-documented models to create an approach 
that suited our development environment. 

4. 1 Waterfall 

The waterfall model consists of five basic stages (requirements analysis and definition, 
system and software design, implementation and unit testing, system testing, operations 
and maintenance) and assumes that one stage ends before the next stage begins [13]. In 
the typical flight software development environment, strict adherence to waterfall 
development methodologies is impossible [14]. The uncertainties of high-level 
requirements definition and significant hardware and spacecraft interface design changes 
well into the software development cycle would prevent ever evolving out of the software 
requirements phase. This was the case during the development of the Pallet Simulator 
Master AT. If we had waited until all requirements were firm before moving on to the 
design phase, we would have had nothing but requirements to show on the designated 
delivery date. 

4.2 Spiral 

The spiral model [15] is a risk-driven approach that emphasizes prototyping and 
incremental and iterative deliveries and allows a more realistic approach to requirements 
satisfaction than the traditional waterfall models [16]. Each iteration around the spiral 
passes through four phases (Planning, Risk Analysis, Engineering, Customer Evaluation) 
as progressively more complete versions of the software are built. It attempts to combine 
the best elements of the waterfall model and prototyping while recognizing and providing 
a mechanism for risk analysis. In that, the spiral model demands considerable risk 
assessment expertise and we simply did not have the time or the expertise to fully 
implement the spiral model development approach. 

4.3 Prototyping 

Software prototyping enables the developer to create a model of the software that must be 
built. It is especially helpful in the requirements specification phase [11]. Because we 
had a set of general objectives for the GSE software but little detailed information about 
input, processing, and output requirements, prototyping seemed the best modeling choice, 
especially for gaining insight into the user interface. ¥ owever, we did not have the time 
to implement a pure prototyping life cycle. We could not afford to throw away precious 
development time along with the models themselves. However, prototyping would enable 
us to create a model of the software that, at a minimum, would simulate the user-machine 
interface. This “strawman” approach worked well. It defined what the user interface 
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should look like and we were able to extract other system requirements. In GSE, very 
little processing is performed that is not displayed in one form or another. Prototyping led 
to a top-down function design process that meshed well with the real-time context. The 
first “quick design” prototype was a throw-away. After a look and feel was agreed upon, 
we moved to a data driven approach. 

4.4 Data Driven Approach 

Many real-time system developers feel that present-day software engineering methods are 
insufficient to meet the needs of real-time programming [17]. Data flow-oriented 
techniques are generally seen as the best fit method for real-time system design. 

Functional decomposition makes it easy to cope with some peculiar aspects of real-time 
systems such as concurrency and timing requirements [18]. For non-embedded 
applications like the CFG, prototyping is helpful in designing the user interface from 
which requirements inevitably fall out. We found this to be true in the Pallet Simulator 
development but wanted a more modular design for the CFG. Due in part to the language 
selection (Ada), the design of the Master AT was inherently modular enough to allow for 
reuse of packages whose functionality would be required later (i.e. LITE command block 
construction) but we knew we could improve on that with the CFG. In general, functional 
oriented methods are stronger in the early stages of software design in going from 
requirements to top-level design elements. We carried over this philosophy to the CFG 
but used an Object Oriented Design (OOD) approach at the package level. Our high-level 
requirements were functional in nature and mapping the CFG requirements back to the 
mission requirements was simple. We defined objects to represent the interfaces and data 
definitions that required further clarification. This enabled us to isolate the code that we 
knew would change, as requirements were refined and system changes impacted current 
requirements. This helped in driving the changes into the data but was not sufficient. We 
did not want to perform a system rebuild every time a data definition changed. External 
data files could be used to provide dynamic data definition. The following narrates the 
design decisions and techniques used to minimize risk by pushing the system uncertainty 
into the data. 

5. Design Techniques 

The selected language for flight and ground software development was Ada. Ada 
facilitated the use of a number of design techniques such as information hiding, data 
abstraction and modularity. These techniques were successfully employed in the 
generation of several reusable packages for menuing, operating system isolation and data 
display. 

5.1 Ada Language Choice 

Ada was developed in the early 1980’s as the mandated language of the Department of 
Defense (DOD) and as a potential solution to the rising cost of software development. 
NASA LaRC had not mandated the use of Ada in its flight projects but the organization 
responsible for the LITE software was in the process of establishing a center-wide 
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standard for software. The software engineer on LITE selected Ada as the language best 
suited for real-time system development at LaRC for both embedded and non-embedded 
environments. Ada was not specifically manufactured to support object oriented design. 
Nevertheless, some of its features like data and processing abstraction, generic types, 
packages (that support information hiding), are particularly useful in implementing object 
oriented design. The “package” is an important Ada concept. Inherent in the use of the 
Ada package is a certain degree of modularity. Even though OOD was not used in the 
development of the Master AT, all of the functions also needed by the CFG system could 
be ported directly over with only a few modifications. Ada was especially useful in the 
design phase of the CFG. The design was a team effort with individual responsibilities 
assigned to each member. During the design, specifications for all packages were created 
and compiled. These specifications imported other specifications so we were able to 
group blocks and subsystems before any processing code was created. Package bodies 
were created with procedure and function stubs. The coding phase simply filled in these 
functions and procedures one by one. Integration and test was simplified in that we 
already had a system in place. We needed only to verify functional correctness. Ada 
promotes software engineering better than any other modem language [19]. The package 
concept, strong typing and Ada compiler helped us enforce our software interfaces and 
imposed a modular design on both systems. Adherence to the Ada philosophy inherent in 
the language provided modularization, abstract data types and hierarchical structuring 
[ 12 ]. 

5.2 Modularity 

Modularity has a direct positive impact on maintainability [18]. To this end, the design of 
the CFG system was modular in nature. At the top level, functional decomposition 
separated logical modules. Within each functional module, objects were separated though 
the use of packages using an OOD approach. A high-level architectural block diagram 
can be found in Figure 4. Due to immature requirements during the initial design phase, 
we often did not know the exact definition of that data that was to be passed from module 
to module. We knew the size of the data but the format was yet to be determined. To 
work around this problem, we were forced to override one of the features of Ada, strong 
typing. To simplify parameter passing to and from procedures, all parameters were passed 
as arrays of unsigned bytes. Unchecked Conversion allowed for the integration of many 
different data types used within individual packages. When the data definitions were 
defined, the existing procedures and functions were overloaded to handle both the 
primitive data (unsigned byte) and the strongly typed data type. 
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Figure 4: Partial CFG Architecture 

5.3 Abstraction and Information Hiding 

Information hiding focuses on what to hide; abstraction focuses on what to reveal. The 
principle of information hiding is that each module (or package) hides a design decision 
and implementation. If the design decision changes later, then no calling code should 
need to change. It is the other side of the coin from data abstraction [20]. Abstract data 
types should make it possible to change the data representation of objects while 
guaranteeing that all visible operations on the objects have the same properties. Procedural 
abstraction can be used to obtain much of the effect of abstract data types. A data 
structure can be defined and a set of procedures can be written to manipulate that data 
[21]. In Ada, data abstraction is often accomplished through the use of generic packages. 
In the CFG development, abstraction was achieved through procedures for ease of testing. 
Generic packages presented difficulties in the test and debug phase of software 
development. The inline debuggers could not see inside an Ada generic. Further, in Ada 
83, generics were highly inefficient in memory usage and reclamation at execution time. 

The Menu Package (Appendix 1 ) is one example of data abstraction and information 
hiding used in the software. It provides a text-based menuing facility that was developed 
for the user interfaces on both the Master AT and CFG platforms. Neither system had 
graphics displays requirements. Therefore, text-based menuing and data display was 
chosen for speed and executable size advantages. With the Menu Package, vertical menus 
were defined, displayed and read via the limited private type Menu_Type and the 
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procedures and functions provided for operations on a menu object. Menus are defined by 
procedure De f ine_Menu using upper left and lower right coordinates, color scheme, 
title, and border style. The parameters are read from an input file specified by the calling 
routine. This is an excellent example of information hiding. The programmer creates a 
text file that contains all the information required to define a menu and declares an object 
of type Menu_Type with no need to know exactly what this type looks like. Procedures 
and functions are provided for access information about the menu. 
Get_Menu_Coordinates, Get_Menu_Color_3cheme, 

Get_Menu_Border_Style and Get_Menu_Title are examples of the procedural 
data abstraction used in providing operations on the Menu_Type. Read_Menu returns 
the sequence number of the selected item in the menu specified. Other operations are 
Append_I t em, Insert_Item, and Delete_Item that allow menu modification 
during program execution. 

While the Menu Package was created specifically for menuing, we also used it during the 
prototyping phase of development. Menu parameters can be defined such that no 
highlighted selection bar is present and dummy data can quickly and easily be placed on 

the screen with calls to Define Menu and Display Menu.. Data can then be moved 

around on the screen and colors changed with a simple modification to the input text files 
with no required recompilation, bind or link. This is discussed in more depth in Section 
5 . 7 . 

5.4 Filename Manager Package 

The Filename Manager Package allowed greater flexibility in naming external files such 
as data files, initialization files, and menu definition files. It allowed the code to use 
identifier strings, called "tags", to select files, instead of being limited to the file naming 
restrictions imposed by the host operating system. In addition, it also prevented literal file 
names from being hard-wired into the code. This allowed us to change file names, or 
use a substitute file with a different name in a test, without having to modify or re-compile 
the code. It also provided operating system independence. 

An input file is created that contains a list of data pairings, the actual file name and its 
associated file tag. A pairing in an input file appears as 

[CFG_Command_Logf ile] 

[C : \CFG\ LOG \ COMMAND . LOG] 

where the file tag CFG_Command_Logf ile is mapped to the actual file 

COMMAND . LOG in directory C : \CFG\LOG\. 

The actual file names are assigned when the file is reac in at list initialization. This allows 
complete code isolation from the operating system. It Uso allows for easy testing of new 
data files. The filename input file can be modified to associate a different file name with 
an existing file tag and the new file name will be used. No modifications are required to 
an existing working file so nothing is lost in testing the new data definition. 

The following functions are available operations on th( private type 
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Filename_List_Type that is a record that contains the filename list and the length of 
the list. Private type File_Node_Type defines the list contents as a record that holds 
the file tag, the actual filename to which the tag maps and a pointer to the next list 
element. The private type declarations are listed below. Filename Manager Package, in 
its entirety, can be found in Appendix 2. 

TYPE Filename_List_Type IS 
RECORD 

Length : NATURAL: = 0; 

Node_List : File_Node_Access_Type; 

END RECORD; 

TYPE File_Node_Type ; 

TYPE File_Node_Access_Type IS ACCESS File_Node_Type ; 

TYPE File_Node_Type IS 
RECORD 

File_Tag : Variable_String_Package .VString; 

Filename : Variable_String_Package .VString ; 

Next : File_Node_Access_Type; 

END RECORD; 

The overloaded function Get_Filename searches the specified list for the file tag or tag 
position passed to it and returns the actual file name associated with that tag. A mapping 
is created with procedure Generate_Filename_List that requires a filename list and 
an actual filename, From_File, which can be passed in as a result of the function 
Get_Filename. File tags can be retrieved with function Get_File_Tag based on a 
file name or position and specified list. Careful file management allows the position 
returned to be used in combination with the Menu Package choice in Read_Menu. 
Pairings can be removed from the set by either file name or file tag with procedures 
Delete_File_Name and Delete_File_Tag, respectively. Pairings can be inserted 
via procedures Append_To_Filename_List or 

Insert_Into_Filename_List. Procedure Insert_Into_Filename_List 

inserts the new pairing in sorted order, assuming a sorted list, by either file name or file 
tag as specified in the parameter Insert. Sorted mappings are achieved through 
procedure Sort_Filename_List which sorts by either file tag or filename. Procedure 
Save_Filename_List allows the user to save the current contents of a filename list to 
an external file so that runtime changes to a list are not lost. If Save_Filename_List 
is not called at shutdown, the original file from which the list was created will remain 
intact. 

5.5 External Initialization Files 

A big challenge for the Master AT development was lack of command and data definition. 
The data size had been determined, as had the maximum command size. However, little 
consideration had been given to the command and data format. Additionally, the LITE 
subsystems were not yet completed, further complicating command definition. Even once 
the basic command format was defined, the command codes themselves were still 
changing. Each LITE serial command had a unique associated 8-bit identifier when 
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coupled with the 2-bit command subsystem destination. Three initialization files were 
created - one for each subsystem destination. At runtime, these files were read in and the 
command database was initialized from these files. As the subsystem command codes 
were defined, we needed only to edit the external text files in order to accommodate the 
system changes. 

5.6. Constants Package 

Figure 5 illustrates the evolution of the Constants Package concept used in both the Master 
AT and CFG systems. The following sections explain the refinement of this package that 
can be found in its entirety in Appendix 3. 

5.6. 1. Specification only. While developing the Pallet Simulator and CFG software, the 
team noticed that many constants and objects were needed in several packages resulting in 
multiple declarations. For example, 

Byte_size : constant integer := 8; 

appeared in almost every package body developed. If a requirements change effected any 
of these variables, the domino effect would have been significant. Our solution was the 
Constants Package that was used in both systems. A package Specification was created to 
isolate shared data definitions. Theoretically, this makes maintenance easier in that a 
change in one place will trickle down through the entire software system. However, there 
was one major drawback. While changes were isolated, a complete system rebuild was 
required whenever a change to the constants package was made. Many packages WITHed 
in the constants specification and had to be recompiled whenever the constants package 
specification was recompiled. 

5.6.2. Specification and Body (Package) with function calls. In order to avoid a 
recompile of the entire system when a data definition changed, the existing constants 
package Specification was modified. Each object in the Specification was redefined as a 
function whose name was identical to the existing object name. No code modifications of 
existing software were required since the object to function translation was transparent to 
the calling code. The data values were defined as comtant declarations in the package 
body. If a data definition changed, all that was required was a constants package body 
recompile which did not necessitate any further recompiles. All that was required was a 
new BIND and, as with the constants specification concept, the changes trickled down 
though the software. This was an improvement over the original specification only 
package but still did not isolate the risk to the data exclusively. 

5.6.3. Package with initialization files. In order to eliminate recompiles entirely, the 
constants package body was further refined. At runtime, an initialization file was read in. 
All constant declarations were changed to object decla 'ations. The objects declared were 
defined at runtime with the contents of the initialization file. With this modification, data 
definition changes could be affected with no compilati m, no bind and no link of the 
system. The code was data independent and, as much is possible, data definition changes 
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were isolated to simple ASCII text files. 


5.6.4. Package with initialization files and filename manager package. The final 
modification to the Constants Package was for OS isolation. The filename manager 
package was used in opening, reading and closing the initialization file. While this change 
did not increase data isolation, it was in keeping with the OS-independent design 
approach. 



5 . 7 . Relative Positioning 

Relative referencing combines the data abstraction and information hiding 
illustrated by the Menu Package with the data-driven design approach of 
initialization files. The prototyping efforts accomplished with the Menu Package 
were so successful that we wanted to incorporate this idea into the delivered 
product. With the prototype, dummy data was used for display purposes. Static 
displays were sufficient for conveying the look and feel of the user interface. We 
needed a way to handle periodic, dynamic data for the working systems in both the 
test and mission environments and accomplished this through relative positioning 
of data. Menu files were used to define the placement, size and color of a data 
block. For example, a window to display command tracking is illustrated in Figure 
6. 
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Commands sent from CFG: 
Commands rejected by MCC: 
SFMDM Input command counter: 
SFMDM Command reject count: 
Invalid Uplink Commands: 


Figure 6: Command Count Data Window 

This window can be created with a text file that contams the information in Figure 7. 


[] -- Menu Title 

[0] -- initial value of Current_Item 

[2] -- Upper Left Row 

[2] -- Upper Left Column 

[ 8 ] -- Lower Right Row 

[30 -- Lower Right Column 

[ Blue_Background -- Background Color 

[ Yellow_Foreground] -- Foreground Color 

[ Yellow_Foreground] -- Title Color 

[Light_Cyan_Foreground] -- Border Color 

[Bright_White_Foreground] -- Highlight Color 
[Single] -- Border Type 

*************** ]^ 0 n -Q items ***************** 


[Commands sent from CFG:] 

[ 0 ] 

[Commands rejected by MCC:] 

[ 0 ] 

[SFMDM Input Command Counter:] 

[ 0 ] 

[SFMDM Command Reject Count:] 

[ 0 ] 

[Invalid Uplink Commands:] 


Figure 7: Command Count Window File 


Defining and displaying the data blocks was simple. We needed a way to update the data 
that was equally as simple and flexible. Relative positioning was the solution to this. The 
Command Count Window was defined as a menu: 
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Command_Count_Window : Menu_Package .Menu_Type ; 

Objects were declared to hold the row and column positions of the window. 

Command_Count_Window_Top_Row, 

Command_Count_Window_Bottom_Row : Screen_Package . Row_Type ; 

Command_Count_Window_Lef t_Column, 

Command_Count_Window_Right_Column : Screen_Package . Column_Type ; 

At start-up, the menu is defined using the Filename Manager Package to avoid the use of 
OS-specific file names and reduce recompilations. 

Menu_Package . Def ine_Menu 

(The_Menu => Command_Count_Window, 

Item_List => Coramand_Count_Window_List , 

Filename => 

CFG_Fi 1 ename_Package . Ge t_CFG_Fi lename 
(CFG_List => CFG_Filename_Package . MENU, 
File_Tag => Command_Count_Window_File_Tag) ) ; 

The menus coordinates are assigned after the external file is read in and the coordinates are 
defined. 


Menu_Package . Get_Menu_Coordinates 
( Command_Count_Window , 

Command_Count_Window_Top_Row , 
Command_Count_Window_Lef t_Column, 

C ommand_C oun t _Wi ndow_Bo t t om_Row , 
Coirimand_Count_Window_Right_Column) ; 

At this point, the cursor positioning for data updates is entirely relatively to the coordinates 
read in from the external menu file. 

Screen_Package . Posit ion_Curs or 

(Row => Command_Count_Window_Top_Row + 1, 

Column => Command_Count_Window_Right_Column - 5); 

Changes to the menu file will be reflected in all data updates and data placement can be 
easily altered without any system changes. 

6. Conclusions 

LITE flew as the primary payload on STS-64 in September of 1994. It is the first lidar 
system to be operated in space and the first to use lasers in space for study of the Earth’s 
atmospheric environment. It provided the most accurate measure of cloud top heights to 
date and provided data on the depth and structure of cirrus and other thin clouds. The 
success of LITE has provided new information on the distribution and characteristics of 
clouds to increase our understanding of their role in the global climate system. The LITE 
instrument CDR was held in April of 1989. A software team was formed in late 1990 to 
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develop systems to support integration and test, and mission. These real time systems 
were developed under a tight schedule and, despite the late start, with immature system 
requirements. Steps had to be taken to incorporate flexibility into the support software. 
We had no choice but to design for change. 

One of the clearest lessons in this discussion about “design for change” is that one must 
anticipate changes before one begins the design [22]. System architecture changes in the 
later stages of a software project are dangerous, costly, and common. In order to avoid 
system architecture changes, the areas of the software most likely to change must be 
identified and consideration given to why they will change. This process illuminates how 
requirements will change and methods for accommodating these changes can be designed 
into the deliverable. Life cycle modeling attempts to capture this process but required 
unavailable resources such as personnel and time. The software team developed a data 
driven approach to development that incorporated aspects of several models. In both 
software systems developed for LITE, data was the most likely target for change. 
Information hiding, low intermodule coupling achieved through modular design and 
object-oriented development were key in limiting the impact of requirements changes. 
Additionally, we attempted to build in modifiability by pushing the elements we knew 
would change out of the code into external files and designing for dynamic data 
definitions. 
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Appendix 1: Menu Package 


-- File Name: MENU. ADS 

-- Organization: NASA - Langley Research Center (LaRC) 

-- Project: LIDAR In-Space Technology Experiment (LITE) 

****************************************************************************** 

- - Name /Number : 

Menu_Package (package spec) 

-- Abstract: 

This package provides provides a basic menuing facility. Vertical 
menus can be defined, displayed, 

This package relies on the device driver ANSI. SYS. 

-- Acronyms /Abbreviat ions : 

-- Dependencies: 

Dynamic_String_Package 

List_Package 

Keyboard_Package 

Screen_Package 

-- Global Objects: 

NONE 

-- Exceptions: 

NONE 

-- Machine /Compiler Dependencies: 

NONE 

**■★***★ + *****★★*★★★★★★*★★*★★★*★★**★****★**★★*★★★**■*** + ********★★★★*★******★★* 

with Variable_String_Package ; 
with List_Package; 
with Key boar d_Package ; 
with Screen_Package ; 

package Menu_Package is 

Subtype VString is Variable_String_Package . VString; 

type Menu_I tem_Type is 
record 

Item_VString : VString; 

Hot_Key_Position : Natural range 0 .. 100 := 0; 
end record; 


Procedure Dispose_VString (Menu_Item : in out Menu_Item_Type) ; 

package Menu_List_Package is new List_Package (Item_Type => Menu_Item_Type, 

Dispose => Dispose_VString) ; 


type Border_Type is ( Single, Double, Double_Vertical_Border , Double_Horizontal_Boraer ) ; 

type Color_Scheme_Type is 
record 

Background_Color : Screen_Package . Backgrouna„Color_Type ; 

Foreground_Color : Screen_Package . Foreground_Color_Type ; 
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Title_Color : Screen_Package . Foreg round_Color_Type ; 

Border_Color : Screen_Package . Foreg round_Color_Type ; 

Highlight_Color : Sc reen_Package . Foreg round_Co!or_Type ; 
end record; 

type Clear_Screen_Type is (No_Clear_Screen, C Lear_Screen) ; 

Def ault_Color_Scheme : constant Color_Scheme_ rype : = ( Screen_Package . Biue_Background, 

Screen_Package . Whi te_Foreground, 
Screen_Package . Yel low_Foreground, 
Screen_Package . White_Foreground, 
Screen_Package . Red_Foreground) ; 


De fault _Menu_Upper_Left_Row : constant Sc reen_Package . Row_Type := 10 
Default jyienu_Upper_Left_Column : constant Sc reen_Package . Column_Type 10 
Def ault_Menu_Lower_Right_Row : constant Sc reen_Package . Row_Type 20 
Default_Menu_Lower_Right_Column : constant Sc reen_Package .Column_Type := 20 


type Menu_Type is limited private; 


-- This procedure will draw a rectangular birder as specified by 
-- by the diagonal coordinates below. The oorder is drawn in the 
-- current foreground color. This procedure requires that the 
-- video system support the extended character set of the IBM PC. 

-- The title will be displayed in the foreground and background 
-- colors as specified when the procedure " Set_Title_Colors " is called, 
procedure Draw_Border (Upper_Lef t_Row : in Screen_Package . Row_Type := 

Def au 1 t_Menu_Uppe r_Le f t _Row ; 

Upper_Left_Column : in Screen_Package . Column_Type : = 

Default _Menu_Uppe r _Ije f t _Co 1 umn ; 

Lowe r_Ri ght_Ro w : in Screen_Package . Row_Type : = 

Default _Menu_Lowe r_Ri gh t_Row ; 

Lowe r_Right_Col umn : in Screen_Package . Column_Type := 

Default _Menu_Lowe r_R i gh t_Co lumn ; 

Color_Scheme : i:i Color_Scheme_Type : = 

D< i f aul t Color Scheme ; 

Title : in String := " • 

Border_Style : in Border_Type := Single; 

Clear_Mode : in Clear_Screen_Type := 

No_Clear_Screen) ; 

-- Define a Menu 

-- This procedure defines a menu containing a list of items with the given 
-- upper left & lower right coordinates, color scheme, title, border style. 

If the Cur rent_I tern field is left to its default, you cannot execute a 
-- Read_Menu command without raising a constraint error! 
procedure Define_Menu (The_Menu : in out Menu_Type; 

Item_List : in Menu_List_Package . List_Type; 

Current_Item : in Natural := 0; 

Upper_Lef t_Row : in Sc reen_Package . Row_Type := 

De fault_Menu_Upper_Left_Row; 

Upper_Left_Column : in Screen_Package . Column_Type := 

Dt f ault_Menu__Upper_Lef t_Column; 

Lower_Right_Row : ii Screen_Package . Row_Type 

De fault_Menu_Lower_Right_Row; 

Lower_Right_Column : ii Screen_Package . Column_Type := 

Default _Menu_Lowe r_R i ght _Co 1 umn ; 

Color_Scheme : in Col or_Scheme_Type := Def ault_Color_Scheme; 

Title : in St 2 ing := " " ; 
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Border_Style 


: in Border_Type 


: = Single) ; 


-- Define a Menu 

-- This procedure defines a menu containing a list of items with the given 
-- upper left & lower right coordinates, color scheme, title, border style. 
-- The parameters are read from the file specified by the user, 
procedure Define„Menu (The_Menu : in out Menu_Type; 

Item_List : in out Menu_List_Package . List_Type ; 
Filename : in String) ; 


-- Change specific attributes of an existing menu 


-- reposition where the menu is on the screen 
procedure Set_Menu_Coordi nates (The_Menu : 

Upper_Lef t_Row : 
Upper_Lef t_Column : 
Lower_Right_Row : 
Lower_Right_Column : 


in out Menu_Type; 
in Screen_Package . Row_Type; 
in Screen_Package . Coiumn_Type ; 
in Screen_Package . Row_Type ; 
in Screen_Package .Column_Type) ; 


-- changes the list of items which are available for The_Menu 
procedure Set_Menu_Item_List (The_Menu : in out Menu_Type; 

Item_List : in Menu_List_Package . List_Type) ; 


procedure Set_Color_Scheme_Type (The_Menu : in out Menu_Type; 

Color_Scheme : in Color_Scheme_Type) ; 


procedure Set_Menu_Tit le (The_Menu : in out Menu_Type; 

Title : in String) ; 

procedure Set_Menu_Border_Style (The_Menu : in out Menu_Type; 

Border_Style : in Border_Type) ; 

procedure Set_Current_Item (The_Menu : in out Menu_Type; 

New_Item : in Natural := 0) ; 


-- Define a Color Scheme 

function Def ine_Color_Scheme (Background_Color : in Screen_Package . Background_Color_Type ; 

Foreground_Color : in Screen_Package . Foreground_Color_Type ; 
Title_Color : in Screen_Package . Foreground_Color_Type ; 

Border_Color : in Screen_Package . Foreground_Color_Type ; 
Highlight_Color : in Screen_Package . Foreground_Color_Type) 
return Color_Scheme_Type ; 


-- Request specific info about a menu 


procedure Get_Menu_Coordi nates 


( The_Menu 
Upper_Lef t_Row 
Upper_Lef t_Column 
Lower_Right_Row 
Lower_Right_Column 


in Menu_Type; 

out Screen„Package . Row_Type ; 
out Screen_Package .Column_Type; 
out Screen_Package . Row_Type; 
out Screen_Package .Coltimn_Type) 


Function Get_Menu_Color_Scheme (The_Menu : in Menu_Type) return Color_Scheme_Type ; 
Function Get_Menu_Border_Style (The_Menu : in Menu_Type) return Border_Type; 
Function Get_Menu_Title (The_Menu : in Menu_Type) return VString; 
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-- Initialize and append Items to an Item List 


procedure Initialize_Item_List (Item_List : in out Menu_List_Package . List_Type) ; 


procedure Append_Item 


(The_Item 

Wi th_Hot_Key_Pos i t ion 
To_List 


in String; 
in Natural := 0; 

in out Menu_List_Package .List_Type) ; 


procedure Insert_Item{ The_Item 

Wi th_Hot_Key_Posit ion 

At_Position 

In_List 


in String; 
in Natural := 0; 
in out Natural ; 

in out Menu_List_Package . List_Type) ; 


procedure Delete_Item( At_Position : in out Natural; 

From_List : in out Menu_List_Package . List_Type) ; 


returns the number of items associated with the specified menu 
function Number Of Items { In Menu : in Menu_T/pe) return Natural; 

-- Display Menu 

procedure Display _Menu (The_Menu : in MenuJType) ; 


-- Hide Menu 

procedure Hide_Menu (The_Menu : in Menu_Type; 

Fill_Color : in Screen_Package . Background_Color_Type ) ; 


-- Read Menu 

procedure Read_Menu (The_Menu ; in out MenuJType; 

The_Choice : out Natural ) ; 


- - Reaa Menu 

This version of Read_Menu adds two important funtions: one, it allows the 


-- use of a predefined array of special 
-- menu, and two, it allows the user to 
-- of the escape key. 
procedure Reaa_Menu (The_Menu : 

Legal_Speciai_Keys : 
Special_Key_Hit : 

Entered_Special_Key : 
Escape_Key_Hit : 

The_Choice : 


keys as additional exits from the 
define a special case for the use 

in 3ut Menu_Typ e ; 

in Ceyboard_Package . Special_Keys_Array_Type ; 
out Boolean; 

out Keyboard_Package . Special_Keys_Type; 
out Boolean ; 
out Natural ) ; 


-- Undefine Menu 

procedure Undef ine_Menu (The_Menu : in out Me:iu_Type) ; 

-- Undefine Menu 

-- Remove menu definition from memory 

-- This version allows user to also clear he menu_list contained in the 
-- user’s application code with deallocation of VStrings. 
procedure Undef ine_Menu {The_Menu ; in out Me:iu_Type; 

The_List : in out Menu_List_Package . List_Type ) ; 
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private 


type Menu_Structure is 
record 
Title 
Item_List 
1 1 em_L i s t _Leng t h 
Current_Item 
Highl ight__Bar 
First_Window_Item 
Las t_Window_I tem 
Upper_Lef t_Row 
Upper_Lef t_Column 


VS t ring; 

Menu_List_Package . List_Type 

Natural 

Natural 

Natural 

Natural 

Natural 

Screen_Package . Row_Type 
Screen_Package . Column_Type 


Default _Me nu_Upp e r _L e f t _Co 1 umn ; 

Lower_Right_Row : Screen_Package . Row_Type 

Lower_Right_Column : Screen_Package . Column_Type 

De f aul t_Menu_Lower_Right_Column ; 

Color_Scheme : Color_Scheme_Type 

Border_Style : Border_Type 

end record; 


= 0 ; 

- 0; 

- 0; 

= 0 ; 

= 0 ; 

= Def ault_Menu_Upper_Lef t_Row; 


= Def ault_Menu_Lower_Right_Row; 


= Def ault_Color_Scheme ; 
= Single; 


type Menu_Type is access Menu_Structure; 
end Menu_Package; 
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-- File Name: MENU . ADB 

-- Organization: NASA - Langley Research Center (LaRC) 

-- Project: LIDAR In-Space Technology Experiment (LITE) 




******************** 


- - Name /Number : 

Menu_Package 


(package body) 


-- Abstract: 

This package provides provides a basic menuing facility. Vertical 
menus can be defined, displayed, read, and removed from memory. 


-- Acronyms / Abbreviat i ons : 


- - Dependenc i e s : 

DOS 

Get_Token 

Text_IO 

Keyboard_Package 

Screen_Package 

Unsigned 

Unchecked_Conversion ! I ! not required ! ! ! 


-- Global Objects: 
NONE 


-- Exceptions: 
NONE 


-- Machine /Compiler Dependencies: 
NONE 


— ****************************************** 


********************************** 


with Get_Token; 

with Text_IO; 

with Keyboard_Package; 

with Screen_Package; 

with Unsigned; 

with Unchecked__Con vers ion; 

with Unchecked_Deal location; 


package body Menu_Package is 


-- Functions for explicit type conversions. 

function To — Character is new Unchecked Conversion {Source => Unsigned. Byte, 

Target => Character) ; 

function Convert_Special_Key_To_Char is new Unchecked_Conversion 

(Source => Keyboard_Pc ckage . Special_Keys_Type , 
Target => Character) , 


-- for undefining menus 

procedure Dispose_Of_Menu is new Unchecked_Dec 1 location ( Menu_Structure, 


Menu_Type) 


Single_Upper_Left_Corner 
Single_Upper_Right_Corner 
S ingl e_Lower_Le f t_Corner 
S ingl e_Lower_Ri ght_Corner 


constant Charactei 
constant Character 
constant Character 
constant Character 


To_Character ( 218) 
To_Character ( 191) 
To_Character ( 192) 
To_Character ( 217) 
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Single_Vertical : constant Character To_Character { 179); 
Single_Horizontal : constant Character := To_Character ( 196); 


Double_Upper_Lef t_Corner : constant 
Double_Upper_Right_Corner : constant 
Double_Lower_Left„Corner ; constant 
Double_Lower_Right_Corner : constant 

Double_Vert ical_Upper_Lef t_Corner : 
Double_Vertical_Upper_Right_Corner : 
Double_Vertical_Lower_Lef t_Corner : 
Double_Vert ical_Lower_Right_Corner : 

Double_Hori zontal_Upper_Lef t_Corner 
Double_Hori zontal_Upper_Right_Corner 
Double__Hori zontai_Lower_Lef t_Corner 
Double_Horizontal_Lower_Right_Corner 

Double_Vertical : constant Character 
Double_Hori zontal : constant Character 

Highlight_Row_Cursor_Position 
Highlight_Column_Cursor_Position 


Character := To_Character ( 201); 

Character : = To_Character ( 187); 

Character := To_Character ( 200); 

Character := To_Character ( 188); 

constant Character := To_Character ( 214); 

constant Character := To_Character ( 183); 

constant Character := To_Character { 211); 

constant Character := To_Character ( 189); 

: constant Character := To_Character ( 213); 
: constant Character := To_Character ( 184); 
: constant Character := To_Character ( 212); 
: constant Character := To_Character ( 190); 

:= To_Character ( 186); 

:= To_Character { 205); 

Screen_Package . Row_Type ; 

Screen_Package . Column_Type ; 


-- Arithmetic /Logical function renamings for Row_Types and Coiumn_Types defined in 
-- Screen_Package . 

function "+" (Rowl, Row2 : in Screen__Package . Row_Type) return Screen_Package . Row_Type 
renames Screen_Package . " + " ; 

function " - " (Rowl, Row2 : in Screen_Package . Row_Type) return Screen_Package . Row_Type 
renames Screen_Package . " - " ; 

function ">=” (Rowl, Row2 : in Screen_Package . Row_Type) return Boolean renames 
Screen_Package . " >= " ; 

function " + " (Columnl , Column2 : in Screen_Package . Column_Type) return 
Sc reen__Package . Column_Type renames Screen_Package . " + " ; 

function " * 11 (Columnl, Column2 : in Screen_Package . Column_Type ) return 
Screen_Package . Column_Type renames Screen_Package . " - " ; 

function " >= " (Columnl, Column2 : in Screen_Package . Column_Type) return Boolean renames 
Screen_Package . " >= " ; 

function "/" (Columnl, Column2 : in Screen_Package . Column_Type) return 
Screen_Package . Column_Type renames Screen_Package . " / 11 ; 


Procedure Dispose_VString (Menu_Item ; in out Menu_Item_Type ) IS 


Begin 

Variable_String_Package. Destroy (Menu_Item. Item_VString ) ; 
end Dispose_Vstring; 


29 



function MIN (Numl, Num2 : in Natural) return Natural is 
begin 

if Numl <= Num2 then 
return Numl ; 
else 

return Num2 ; 
end if; 

end MIN; 


function MAX (Numl, Num2 : in Natural) return Natural is 
begin 

if Numl >= Num2 then 
return Numl ; 
else 

return Num2 ; 
end i f ; 

end MAX; 


function Menu_Window_Length (The_Menu : in Menu_Type) return Natural is 
begin 

if The_Menu . Upper_Lef t_Row >= The_Menu . Low€^r_Right_Row then 
return 0; 
else 

return Natural (The_Menu . Lower_Right_Rov - The_Menu .Upper_Lef t_Row - 1) ; 
end i f ; 

end Menu_Window_Length; 


function Menu_Window_Width (The_Menu ; in Menu_Type) return Natural is 
begin 

if The_Menu.Upper_Left_Column >= The_Menu . 1 iOwer_Right_Column then 
return 0; 
else 

return Natural (The_Menu. Lower_Right_Co. umn - The_Menu . Upper_Lef t_Column - 1) ; 
end i f ; 

end Menu_Window_Width; 


procedure Internal_Draw_Border (Upper_Lef t_Rov : in Screen_Package. Row_Type 

Default_Menu_Upper_Left_Row; 

Upper_Left__Column : ir Screen_Package .Column_Type := 

Def aul t_Menu_Upper_Lef t_Co lumn ; 

Lower_Right_JRow : ir Screen_Package . Row_Type : = 

De f au 1 t_Menu_Lowe r_Ri ght_Row ; 
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Lowe r_Ri gh t_Co 1 umn 

Color_Scheme 

Title 

Border_Style 

Clear_Mode 


in Screen_Package . Column_Type := 

Def ault_Menu_Lower_Right_Column; 
in Color_Scheme_Type : = 

Def ault_Color_Scheme; 
in String : = " M ; 

in Border_Type : - Single 

in Clear_Screen_Type : = 

No_Ciear_Screen) is 


Blank_Line : constant String ( Positive (Upper_Lef t_Column +1) . . Positive 

(Lower_Right_Column - 1)) := (others => 1 '); 

Horiz__or_Vert_Bar : Character; -- jnr, 9/13/91 


Top_Row 

Bottom_Row 

Lef t_Column 

Ri ght_Column 

Aval lable_Posit ions 

Start_Of f set 


Screen_Package . Row_Type ; 
Screen_Package . Row_Type; 
Screen_Package . Column_Type ; 
Screen_Package . Column_Type ; 
Screen_Package . Column_Type ; 
Screen_Package . Coluinn_Type ; 


Saved_Foreground_Color : Screen_Package . Foreground_Color_Type; 
Saved_Background_Color : Screen_Package . Background_Color_Type ; 


begin -- Internal_Draw_Border 

-- Save the cursor position and colors so that they may be restored later. 
Screen_Package . Save_Cursor_Position; 

Saved__Foreground_Color : = Screen_Package . Present_Foreground_Color ; 
Saved_Background_Color : = Screen_Package . Present_Background_Color ; 

-- Set the border color. 

Screen_Package . Set_Foreground_Color (Color_Scheme . Border_Color ) ; 
Screen_Package . Set_Background_Color (Color_Scheme . Background_Color ) ; 

-- Position the cursor to the upper left corner and draw the 
-- appropriate upper left corner symbol. 

Screen_Package . Position_Cursor (Upper_Lef t_Row, Upper_Lef t_Column) ; 


-- set horizontal bar character 
case Border_Style is 
when Single => 

Screen_Package . Put (Single_Upper„Lef t_Corner ) ; 
Horiz_or_Vert_Bar := Single_Horizontal ; 
when Double => 

Screen_Package . Put ( Double_Upper_Lef t_Corner ) ; 
Horiz_or_Vert_Bar := Double_Horizontal ; 
when Double_Vertical_Border => 

Screen_Package . Put (Double_Vertical_Upper_Lef t_Corner ) ; 
Horiz_or_Vert_Bar := Single_Horizontal ; 
when Double_Horizontal_Border => 

Screen_Package . Put (Double_Horizontal_Upper_Left_Corner) ; 
Horiz_or_Vert_Bar := Double_Hori zontal ; 
end case; 


-- Print the horizontal symbols for the top part of the border. 
Left_Column := Upper_Lef t_Column + 1; 

Right_Column : = Lower_Right_Column - 1; 

for Horizontal_Bar in Left_Column . . Right_Column loop 
Screen_Package . Put (Horiz_or_Vert_Bar ) ; 
end loop; 

-- Draw the appropriate upper right corner symbol. 
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case Border_Style is 
when Single => 

Sc reen_Package . Put (Single_Upper_Ric ht_Corner ) ; 
when Double => 

Screen_Package . Put (Double_Upper_Richt_Corner) ; 
when Double_Vertical_Border => 

Screen_Package . Put (DoubIe_Vertical_ Upper_Right_Corner ) ; 
when Double_Horizontal_Border => 

Screen_Package . Put (Double_Horizontal_Upper_Right_Corner ) ; 
end case; 

If the user requests a title for this border, then determine how to 
center the title in the border. If tne title is longer than than the 
-- border, then the title will be truncated. If the user allows the default 
null " " as the title, then no title will be printed, 
if Title' Length > 0 then 

-- Set up the title foreground color. 

Screen_Package. Set_Foreground_Color (Color_Scheme . Title_Color ) ; 
Available_Posit ions := Lower_Right_Column - Upper_Lef t_Column - 1; 

if Available_Positions >= Screen_Package . Column_Type ( Tit le 1 Length) then 
Start_Of f set := (Available_Positions - Screen_Package . Column_Type 
(Title 1 Length) ) / 2 f 1; 

Screen_Package . Posit ion_Cursor 

( Upper_Le f t_Row , Upper_Lef t_Column+Start_Of f set ) ; 

Screen_Package . Put ( Title) ; 
else 

Screen_Package . Position_Cursor (Upper_Lef t_Row, Upper_Lef t_Column + 1); 
Screen__Package . Put { Title( 1 .. Natural (Available_Positions) ) ) ; 
end if; 

end i f ; 

-- Restore the border foreground color. 

Screen_Package . Set_Foreground_Color (Color .Scheme. Border_Color) ; 

Position the cursor to the lower left side of the menu so that the 
-- lower left corner symbol may be printed. 

Screen — Package . Posit ion Cursor (Lower Righ : Row, Upper Left Column) ; 

case Border_Style is 
when Single => 

Screen_Package . Put ( Single_Lower_Lef t_Corner ) ; 
when Double => 

Screen_Package . Put (Double_Lower_Lef ~;_Corner ) ; 
when Double_Vertical_Border => 

Screen_Package . Put ( Double_Vertical_; iOwer_Lef t_Corner ) ; 
when Double_Horizontal_Border => 

Screen_Package . Put (Double_Horizonta _Lower_Left_Corner ) ; 
end case; 


-- Print the horizontal symbols for the bottom part of the border, 
for Horizontal_Bar in Left_Column .. Right. Column loop 
Screen_Package. Put (Horiz_or_Vert_Bar ) ; 
end loop ; 

-- Print the lower right corner symbol f< r the menu. 

-- set vertical bar character 
case Border_Style is 
when Single => 

Sc reen_Package . Put ( Single_Lower_Rigt t_Corner ) ; 
Horiz_or_Vert_Bar : = Single_Vertical ; 
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when Double => 

Screen_Package . Put (Double_Lower_Right_Corner ) ; 

Hori z_or_Vert_Bar Double_Verticai ; 

when Double_Vertical_Border => 

Screen_Package . Put ( Double_Vertical_Lower_Right_Corner ) ; 
Horiz_or__Vert_Bar := Double_Vert ical ; 
when Double_Horizontal_Border => 

Screen_Package . Put (Double_Horizontal_Lower_Right_Corner ) ; 
Horiz_or_Vert_Bar := Single_Vertical ; 
end case; 


-- Print both the left and right vertical sides of the menu bar. 
Top_Row := Upper_Lef t_Row + 1; 

Bottom_Row : = Lower_Right_Row - 1; 

for Vertical_Bar in Top_Row . . Bottom_Row loop 

Screen_Package. Posit ion_Cursor (Vertical_Bar , Upper_Lef t_Column) ; 
Screen_Package. Put (Horiz_or_Vert_Bar ) ; 
if Clear_Mode = Clear_Screen then 
Screen_Package . Put ( Blank_Line ) ; 
end i f ; 

Screen„Package. Position__Cursor (Vertical_Bar , Lower_Right_Column) ; 
Screen_Package . Put (Horiz_or_Vert_Bar) ; 

end loop; 

-- Restore the saved cursor position. 

Screen_Package .Restore_Cursor_Position; 

-- Restore the original foreground and background colors. 
Screen_Package . Set_Foreground_Color (Saved_Foreground_Color ) ; 
Screen_Package . Set_Background_Color (Saved_Background_Color ) ; 

end Internal_Draw_Border ; 


procedure Draw_Border (Upper_Lef t_Row 

Upp e r_Le f t _C o 1 umn 

Lowe r _R i gh t _Ro w 

Lowe r _R i gh t _Co 1 umn 

Color_Scheme 
Title 

Border_Style 
Clear_Mode 


in Screen_Package . Row_Type := 

Def ault_Menu_Upper_Lef t_Row; 
in Screen_Package .Column_Type := 

Default _Menu_Upp e r_Le f t _C o 1 umn ; 
in Screen_Package . Row_Type : = 

De f au 1 1 _Menu_Lowe r_Ri ght_Row ; 
in Sc reen_Package .Col umn_Type := 

Default _Menu_Lowe r_Ri ght_Co 1 umn ; 
in Color_Scheme_Type : = Def ault_Color_Scheme; 
in String : = " " ; 

in Border_Type := Single; 

in Clear_Screen_Type := No_Clear_Screen) is 


begin -- Draw_Border 

-- Save the cursor position and colors so that they may be restored later. 
Screen_Package . Get_Screen; 

Interna l_Draw_Border (Upper_Lef t_Row # Upper_Lef t_Column # Lower_Right_Row / 

Lower_Right_Column r 

Color_Scheme, Title, Border_Sty le , Clear_Mode) ; 

Screen_Package . Reiease_Screen; 


33 



end Draw_Border; 


-- The following adjusts the value of TheJSfenu. Current_Item if it is 

too large, and also assigns values to the following fields in The_Menu : 
First_Window_Item 
Las t__Window_I tern 

procedure Determine_Items_In_Window (The_Ment : in out Menu_Type) is 
Temp_W in do w_ Length : Natural 0; 
begin 


-- make sure Current_Item is not beyond the end of the list 
if The_Menu.Current_Item > The_Menu. Item_List_Length then 

The_Menu. Current_Item := The_Menu . Item_List_Length; 
end i f ; 

T emp_W in do w_ Length := Menu_Window_Length (The_Menu) ; 

"’’if there are items and space to display them all, then do so. 
if The_Menu . Item_List_Length in 1 .. Temp_Window_Length - 1 then 

The_Menu .Firs t _Wi ndow_I tern : = 1; 

The_Menu . Last_Window_Item : = The_Menu . Item_List_Length ; 

-- there are items but only space to display some of them, 
elsif (The_Menu.Item_List_Length > 0) and (Temp_Window_Length > 0) then 

-- Make the Current_Item the top item in the window. If Current_Item = 0 
-- the top item will be item #1. 

The_Menu.First_Window_Item := MAX (i, Tne_Menu . Cur rental tern) ; 

-- Determine last item that will fit in the window, but don't go 
-- beyond the end of the Item_List. 

The_Menu.Last_Window__Item := MIN (The_Menu . Item_List_Length, 

The_Menu . First_Window_It em+Temp_Window_Length- 1 ) 
-- If we are at the bottom of the list and the window is not full, 

-- move top of window above the Curre it_Item. 

The_Menu. First_Window_Item : = The_Menu. ^ast_Window_Item+l-Temp_Window_Length; 

else -- no items or no space. 

The_Menu. First_Window_Item : = 0 ; 

The_Menu . Last_Window_Item : = 0 ; 
end i f ; 

end Determine_Items_In_Window; 


procedure Define_Menu (The_Menu 

Item_List 
Current_Item 
Uppe r_Le f t_R ow 

Upper_Le f t_Col umn 

Lower_Right_Row 

Lower_Right_Column 


i:i out Menu_Type; 
in Menu_List_Package . List_Type; 
in Natural := 0; 

in Sc reen_Package . Row_Type := 

D<-?f ault_Menu_Upper_Lef t_Row; 
in Screen_Package . Column__Type : = 
Default _Menu_Uppe r_Le f t _Col umn ; 
ii i Screen_Package . Row_Type : = 

Dc if au 1 1 _Menu_Lowe r_Ri gh t _Row ; 
ii. Screen_Package.Column_Type : = 

Do f au 1 1 _Menu_Lo we r_R i gh t _Co 1 umn ; 
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Color_Scheme 


Title 

Border_Style 

VTitle : VString; 
begin 

-- Allocate storage for the new menu, if required 
Undef ine_Menu (The_Menu) ; 

The_Menu := new Menu_Structure; 

-- Convert title to a "Variable String" 

Variable_String_Package. Make_VString (The_String => Title, New_VString => VTitle); 

-- Define the various fields in the menu 
The_Menu . Cur rent _I tern := Current_Item; 

The_Menu .Upper _Left_Row := Upper_Lef t_Row; 

The_Menu . Upper_Lef t_Column : = Upper_Left_Column; 

The_Menu . Lower_Right_Row := Lower_Right_Row; 

The_Menu . Lower_Right_Coiumn := Lower_Right_Column; 

The_Menu . Color_Scheme := Color_Scheme ; 

The_Menu . Title : = VTitie; 

The_Menu . Border__Style := Border_Styie ; 

Set_Menu_Item_List {The_Menu => The_Menu, Item_List => Item_List); 

-- Determine which items to display, based on Current_Item. 
Determine_Items_In_Window (The_Menu => The_Menu) ; 

end Define_Menu; 


procedure Define_Menu (The_Menu : in out Menu_Type; 

Item_List : in out Menu_List_Package . List_Type ; 

Filename : in String) is 

Length : Natural ; 

Hot_Key_Posi tion : Natural; 

Token : String (1 . . BO) ; 

Menu_JFile : Text_Io . File_Type ; 

VTitle : VString; 

begin -- Define_Menu 

Text_Io.Open (File => Menu_File, Mode => Text_Io . In_File , Name => Filename); 

-- Allocate storage for the new menu, if needed 
Unde f i ne_Menu ( The_Menu ) ; 

The_Menu := new Menu_Structure; 


Get_Token (Menu_File, Token, Length) ; 

-- Convert title to a "Dynamic String" 

Variable_String_Package.Make_VString (The_String=>Token (1 . .Length) , New_VString=>VTitle) ; 
The_Menu .Title := VTitle; 

-- Define the various fields in the menu 
Get_Token (Menu_File, Token, Length) ; 

The_Menu .Current_Item := Natural 'VALUE (Token (1 .. Length)); 

Get_Token (Menu_File, Token, Length) ; 

The_Menu .Upper _Le ft _Row := Sc reen__Pa ckage . Row_Type ’ VALUE (Token (1 .. Length)); 
Get_Token (Menu_File, Token, Length) ; 


m Color_Scheme_Type : = 

Def ault_Color_Scheme ; 

in String := " " ; 

in Border_Type ; = Single) is 
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?he_Menu . Upper_Lef t_Coiumn : = Screen_Packa ge . Column_Type 'VALUE (Token (1 .. Length) ) ; 
Get_Token (Menu_File # Token, Length) ; 

The_Menu.Lower_Right_Row := Screen_Package . Row_Type ' VALUE (Token (1 .. Length)); 
Get_Token (Menu_File, Token, Length) ; 

The_Menu.Lower_Right_Column := Screen_Pack age . Co lumn_Type 'VALUE (Token (1. .Length) ) ; 

-- Set the color scheme 
Get_Token (Menu_File, Token, Length) ; 

The_Menu . Color_Scheme . Background_Color : =Screen„Package . Background_Color_Type ' VALUE 

(Token (1 . . Length) ) ; 

Get_Token (Menu_File, Token, Length) ; 

The_Menu . Color_Scheme . Foreground_Color : = S :reen_Package . Foregrounds olor_Type ' VALUE ' 

(Token (1 . . Length) ) ; 

Get_Token (Menu_File, Token, Length) ; 

The„Menu . Color_Scheme . Ti tle_Color : = Screen .Package . For eground_Color_Type ' VALUE 

(Token (1 . . Length)); 

Get_Token (Menu_File# Token, Length) ; 

The_Menu . Color_Scheme . Border_Color : = Screen_Package . Foreground_Color_Type ' VALUE 

(Token (1 . . Length) ) ; 

Get_Token (Menu_File, Token, Length) ; 

The_Menu . Color_Scheme . Highlight_Color : = Screen_Package. Foreground_Color_Type ' VALUE 

(Token (1 .. Length)); 

Get_Token (Menu_File, Token, Length) ; 

The_Menu.Border_Style := Bor der_Type 'VALUE (Token (1 .. Length)); 

Init iali ze_Item_List ( Item_List) ; 

-- read the items into list 
while not Text_IO. End_of_File (Menu_File) loop 
Get_Token (Menu_Fil£# Token, Length) ; 

Hot_Key_Posit ion := Natural 'VALUE (Token (1 .. Length)); 

Get_Token (Menu_File, Token, Length) ; 

App end_I t em (Token (1 .. Length), Hot_Key_Position, ItemJList); 
end loop ; 

Set_Menu_Item_List (The_Menu, Item_List); 

-- Determine which items to display, based on Current_Item. 

Determines tems_In_Window (The_Menu => The.JMenu) ; 

Text_IO. Close (Menu_File) ; 


exception 

when Text_Io ,Name_Error - > 

Screen_Package . Put ("Menu file => " & Filename & " not found"); 
raise ; 

when Const raint_Error => 

Text_IO . Close (Menu.File) ; 

Screen_Package . Put ("Invalid field value in Menu Initialization File" ) ; 
raise; 

when others -> 

Text_IO. Close (Menu_File) ; 

Screen_Package . Put ("Unanticipated error in subprogram Define Menu" ) ; 
raise; 

end Define_Menu; 


procedure Set_Menu_Coordinates (The_Menu 

Upper_Lef t_Rov 
Upper_Lef t_CoJ umn 

Lower_Right_Rc w 


in out Menu_Type; 
in Screen_Package . Row_Type; 
in Screen_Package . CoIumn_Type; 
in Screen_Package . Row_Type ; 
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Lower_Right_Column : in Screen_Package . Column_Type ) is 

begin 

The_Menu .Upper_Lef t_Row := Upper_Left_Row; 

The_Menu .Upper_Lef t_Column := Upper_Lef t_Column; 

The_Menu . Lower_Right_Row : = Lower_Right_Row ; 

The_Menu . Lower _Right_Column := Lower_Right_Column; 

-- Changing coordinates may change window size 
Determine_Items_In_Window (The_Menu => The_Menu) ; 

end Set_Menu_Coordi nates; 


procedure Set_Menu_Item_List 
begin 


(The_Menu 

Item_List 


in out Menu_Type; 

in Menu_List_Package . List_Type) is 


The_Menu . Item_List : = Item_List; 

The_Menu . Item„Li st_Length : = 

Menu_List_Package . Length_Of (The_List =>The_Menu . Item_List ) ; 
-- Changing Item_List may affect number of items available for display 
Determine_Items_In_Window (The_Menu => The_Menu) ; 


end S et_Menu_I t em_L i s t ; 


procedure Set_Color_Scheme__Type 
begin 


(The_Menu 
Co lor_Scheme 


in out Menu_Type; 
in Color_Scheme_Type) is 


The_Menu . Color_Scheme := Color_Scheme ; 


end Set_Color_Scheme_Type ; 


procedure Set_Menu_Title 
VTitle : VString; 


( The__Menu 
Title 


in out Menu_Type ; 
in String) is 


begin 


-- Convert title to a "Variable String" 

Variable_String_Package . Make_VString (The_String => Title, New_VString => VTitle) ; 
The_Menu .Title := VTitle; 

end Set_Menu_Title; 


procedure Set_Menu_Border_Style 
begin 


(The_Menu : in out Menu_Type; 

Border_Style : in Border_Type) is 


The_Menu . Border_Style := Border_Style; 


end Set_Menu_Border_Style ; 
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procedure Set_Current_I tem 
begin 


(The_Menu : in out Menu_Type; 
New„Item : in Natural := 0) is 


The_Menu . Current_Item := New__Item; 
end Set_Current„Item; 


function Def ine_Color_Scheme (Background_Color : in Screen_Package . Background_Color_Type ; 

Foreground_Color : in Screen_Package . Foreground_Color_Type ; 
Title_Color : in Screen_Package . Foreground_Color_Type ; 

Border_Color : in Screen_Package . Foreground_Color_Type; 
Highlight_Color : in Screen_Package . Foreground_Color_Type ) 
return Color_Scheme_Type is 

begin 

return (Background_Color , Foreground__Color , Title_Color , 

Border_Color , Highlight_Color ) ; 

end Def ine_Color_Scheme; 


procedure Get _Menu_Coordi nates (The_Menu 

Upper_Le f t_Row 
Upper_Le f t_Co 1 umn 
Lowe r_Ri ght _Row 
Lowe r_Ri gh t _Co lumn 

begin 


in Menu_Type; 

out Screen_Package . Row_Type ; 
out Screen_Package.Coluim_Type; 
out Screen_Package . Row_Type . 
out Screen_Package.Column_Type) is 


Upper_Lef t_Row 
Uppe r_Le f t__Co 1 umn 
Lower_Right_Row 
Lowe r_Right_Co lumn 


The_Menu . Upper _Left_Row; 
The_Menu . Upper _Left_Co lumn; 
The_Menu . Lower_Right _Row; 
The_Menu . Lower_Right ^Column; 


end Get_Menu_Coordinates ; 


function Get_Menu_Color_Scheme (The_Menu : in Menu_Type) return Color_Scheme_Type is 
begin 

return The_Menu . Color_Scheme ; 
end Get_Menu_Color_Scheme ; 


function Get_Menu_Border_Style (The_Menu : in Menu_Type) return Border_Type is 
begin 

return The_Menu. Border_Style; 
end Get_Menu_Border_Style ; 


function Get_Menu_Tit le (The_Menu : in Menu_Type) return VString is 
begin 
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return The_Menu. Title; 
end Get_Menu_Title; 


procedure Initialize_Item_List (Item_List : in out Menu_List_Package . List_Type) is 
begin 

Menu_List_Package. Clear (The_List => Item_List) ; 
end Initialize_Item_List ; 


procedure Append_Item (The_Item : in String; 

With_Hot_Key_Position : in Natural := 0; 

To_List : in out Menu_List_Package . List_Type ) is 

List_Posit ion : Natural := Menu_List_Package .Length_Of ( The_List => To_List) + 1; 
Temp_VString : VString; 

Temp_Item : Menu_Item_Type; 

begin 

-- Convert the Standard. String The_Item to a variable string prior to assignment 
Variable_Str ing_Package . Make_Vstring 

{ The_S t r i ng = >The_ 1 1 em , N ew_V S t r i ng = >Temp_V String); 

Temp __Item. It em_VSt ring := Temp_VString; 

-- Make sure position of hot key is valid, 
if With_Hot_Key_Position>Variable_String_Package . Length_Of (Temp_Item . Item_VString) 
then 

Temp_Item. Hot_Key_Posit ion 0; 
else 

Temp_Item. Hot_Key_Posit ion := With_Hot_Key_Position ; 
end i f ; 

Menu_List_Package . Insert_I tem (The_Item => Temp_Itera f In_List => To_List, 

At_Position -> List_Posit ion) ; 


end Append_Item; 


-- Return the item following the Current_Item from the menu Item_List. 
-- Wrap around to the first if Current_Item is at the end of the list, 
function Next_Item (Of_Menu : in Menu_Type) return Natural is 
begin 

if Of_Menu.Current_Item = 0 then 
return 0; 

elsif Of _Menu . Current_Item < Of_Menu . Item_List_Length then 
return Of_Menu.Current_Item + 1; 
else 

return 1; 
end i f ; 

end Next_Item; 
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procedure Insert_Item{ The_Item 

Wi th_Hot_Key_Pos i t ion 
At_Position 
In_List 

Temp_V String : VString; 

Temp_Item : Menu_Item_Type ; 

begin 

-- Convert the Standard. String The_Item to a variable string prior to assignment 
Variable_String_Package . Make_VString ( 

The_String=>The_It era, New_VString=>Temp_VSt ring) ; 

Temp_Item. Item_VString := Temp_VString ; 

-- Make sure position of hot key is valid, 
if With_Hot_Key_Position>Variable_String_Package.Length_Of (Temp_Item. Item_VString) 
then 

Temp_Item. Hot_Key_Position := 0; 
else 

T erap_I t em . Ho t_Key_Pos i t i on : = With_Hot_Key_Position; 
end i f ; 

Menu_List_Package. Insert_Item( The_Item=>Temp_Item, In_List=r>In_List , At_Position 

-> At_Posit Lon) ; 


: in String; 

: in Natural := 0; 

: in out Natural ; 

: in out Menu_Li st_Package . List_Type ) is 


end Insert_Item; 


procedure Delete_Item( 
begin 


At_Posit ion 
From_List 


in out Natural ; 

in out Menu_List_Package . List_Type) is 


Menu_List_Package . Delete_Item ( From_List => From_List, At_Position => At_Position) ; 
end Delete_Item; 


function Number_Of_I terns { In_Menu : in Menu_Type) return Natural is 
begin 

return In_Menu. Item_List_Length; 
end Numbe r_Of_I terns; 


-- Return the item preceding the Current_Item from the menu Item_List. 

-- Wrap around to the last if Current_Item .s the first item in the list, 
function Prev_Item (Of_Menu : in Menu_Type) return Natural is 
begin 

if Of_Menu.Current_Item = 0 then 
return 0; 

elsif Of_Menu. Current_Item = 1 then 
return Of_Menu. Item_List_Length; 
else 

return Of_Menu . Current_Item - 1; 
end i f ; 
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end Prev_Item; 


-- Returns true if The_Item_Number is within the menu's display window bounds 
function Is_In_Window (The_Item_Number : in Natural; 

Of_Menu : in Menu_Type) return boolean is 

begin 

if The_Item_Number - 0 then 
return false; 

--elsif The_Item_Number >= Of_Menu . Firs t_Window_ Item and The_Item_Number <= 
--Of_Menu. Last_Winaow_Item then 

elsif The_I t em__Numbe r in Of_Menu . Firs t_Window__ Item .. Of_Menu . Last_Window_Item then 
return true; 
else 

return false; 
end i f ; 

end Is_In_Window; 


— Displays a menu item in the given colors bounded by the given maximum width. 

-- Display occurs at the current screen cursor position, 
procedure Display_Item (The_Item : in Menu_Item_Type; 

Background_Color : in Screen_Package . Background_Color_Type ; 
Foreground_Color : in Screen_Package . Foreground_Color_Type; 

Highlight_Color : in Screen_Package . Foreground_Color_Type; 
Width : in Natural) is 


Temp_Length: Natural := 

MIN {Width, Variable_String_Package . Length_Of (The_Item. Item_VString) ) ; 
Temp_Text : constant String := Variable_String_Package . Text_Of 
(The_Item. Item_VString ) (1 .. Temp_Length) ; 


begin 

Screen_Package . Save_Cursor_Position; 

-- Set foreground and background colors for text 
Screen_Package . Set_Background_Color (Background_Color ) ; 

Screen_Package . Set_Foreground_Color (Foreground_Color ) ; 

-- print entire string 
Screen_Package . Put ( Temp_Text ) ; 

-- if there is a hot key position, overprint that character in the 
-- highlight color 

if ( The_Item . Hot_Key_Posit ion > 0) and (Screen_Package . Foreground_Color_Type ' POS 
( Foreground_Color ) / =Screen_Package . Foreground_Color_Type ' POS (Highlight_Color ) ) 
then 

Screen_Package. Set_Foreground_Color (Highlight_Color ) ; 

Screen_Package . Restore_Cursor_Pos it ion; 

if (The_Item. Hot_Key_Position > 1) then 

Screen_Package . Move_Cursor_Forward ( Screen__Package . Column_Type 
(The_Item. Hot_Key_Position - 1)); 
end if; 

Screen_Package . Put (Temp_Text (The_Item. Hot_Key_Position) ) ; 
end i f ; 
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Screen_Package . Restore_Cursor_Position; 
end Display _Item; 


Quickly moves highlight bar to another position in current display window. 

NOTE: Assumes the old highlighted position and the new highlighted Current_Item 
are within the current display window, end does not perform any checking, 
procedure Fast_Bar_Move (The_Menu : in out Menu_Type) is 

T emp_W i ndo w_W i d t h : Natural := Menu_Window_Width (The_Menu) ; 

Temp_I t em : Menu_Item_Type ; 

Temp_Iiist_Index : Natural; 

begin 


-- Erase old highlight bar, if one exists 
if The_Menu. Highlight_3ar > 0 then 

Screen_Package. Posit ion_Cursor (The_Mer.u. Upper_Lef t_Row + 

Screen, Package . Row_Type 
(The_Mer u. Highlight_Bar - 
The_Menu. First_Window_Item + 1), 

The_Menu . Upper_Lef t_Column + 1) ; 

Temp_List_Index := The_Menu.Highlight_Ear; 

Menu_List_Package . Get_Item (The_Item = > Temp_Item / From_List => 

The_Menu . Item_List , 

At_Position => Temp_List_Index) ; 

Display_Item (The_Item => Temp_Item, 

Background_Color => The_Menu . Color_Scheme . Background_Color , 
Foreground_Color => The_Menu . Color_Scheme . Foreground_Color , 
Highlight__Color => The_Menu . CoIor_Scheme . Highlight__Color , 

Width => Temp_Window_Width) ; 

end i f ; 

-- Write Current_Item in "reversed colors" 

Highl i ght_Row_Cursor_Pos i t ion := The_Menu . Upper_Lef t_Row + 

Screen_Package . Row_Type (The_Menu .Cur rental tern - 
The_Menu . ?irst_Window_I tem + 1); 

Highlight_Coluirm_Cursor_ Position := The_Me iu . Upper_Lef t_Column + 1; 

Screen_Package . Position__Cursor (High.ligh.t__ low_Cursor_Posit ion, 

Highlight_ :olumn_Cursor_Position ) ; 

Temp_List_ Index : = The_Menu.Current_Item; 

Menu_List_Package . Get_Item (The_Item = > Tenp_Item, From_List => The_Menu . I tem_List , 

At_Position = > Temp_List_Index) ; 

Display_Item (The_Item = > Temp_Iten, 

Background_Color => Screen_Package . White_Background, 

For e gr ound_Co 1 or => Screen_P ickage . Black_Foreground, 

Highlight_Color => Screen_P ickage . Black_Foreground, 

Width = > Temp_Win low_Width) ; 

The_Menu .Highl ight_Bar := The_Menu . Current _I tem; 


end Fast_Bar_Move ; 


-- Displays the menu items in the "current display window", i.e. those items 
in the item list postions First_Window_I :em. . Last_Window_Item. 
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-- The Current_Item, if any, is displayed with the highlight bar on it. 
procedure Displ ay _Menu_I terns (Of_Menu : in Menu_Type) is 

Temp_Window_Width: Natural := Menu_Window_Width (Of__Menu); 

Temp _Blank_St ring: constant String (1 .. Temp_Window_Width) := (others => ' '); 

Temp_Row : Screen_Package . Row_Type : =0f _Menu . Upper_Lef t_Row+l ; 

Temp_Col : constant Screen_Package . Column_Type : =Of_Menu .Upper_Lef t_Column+l ; 

Temp_Item : Menu_Item_Type; 

Temp_List_Index : Natural; 

begin 

-- "Blank" the window part of the menu 
Screen_Package . Set_Foreground_Color (Of _Menu . Color_Scneme . Foreground_Color ) ; 
Screen_Package . Set_Background_Color (Of _Menu . Coior_Scheme . Background_Color ) ; 

for I in Of_Menu . Upper _Left_Row +1 . . Of_Menu . Lower_Right_Row - 1 loop 
Screen_Package . Posit ion_Cursor (I, Temp_Col); 

Screen_Package . Put (Temp_Blank_String) ; 
end loop; 

if Of_Menu . Item_List_Length = 0 then 

Highl ight_Row_Cursor_Posit ion := Temp_Row; 

Highl ight_Column_Cursor_Pos it ion : = Temp_Col; 
else 

-- Display just the items currently in the window 
for I in Of _Menu . Firs t_Window_I tern .. Of_Menu . Last _Window_I tern loop 

Temp_List_ Index := I; 

Screen_Package . Posit ion_Cursor (Temp_Row, Temp_Col); 

Menu_List_Package . Get_Item (The_Item => Temp_Item, From_List => 

Of„Menu. Item_List , At_Position => 

Temp_List_Index) ; 

-- Reverse video "BAR" will be positioned on " Cur rent_I tern" 
if I = Of _Menu .Cur rental tern then 

-- Save the highlighted row, column position for Read_Menu when it is called. 
Highl ight_Row_Cursor_Posit ion : = Temp_Row; 

Highl ight_Column_Cursor_Pos it ion := Temp_Col; 

Display_Item (The_Item => Temp_Item, 

Background_Color => Screen_Package . White„Background, 
Foreground_Color => Screen_Package . Black_Foreground, 
Highlight_Color => Screen_Package . Black_Foreground, 

Width => Temp_Window_Width) ; 

Of _Menu . Highl ight_Bar Of _Menu . Current_Item; 

else 

Display_Item (The_Item => Temp_Item, 

Background_Color => Of_Menu . Color_Scheme . Background_Color , 
Foreground_Color => Of_Menu.Color_Scheme.Foreground_Color, 
Highl ight_Color => Of _Menu . Color_Scheme . Highl ight_Color, 
Width => Temp_Winaow_Width) ; 

end i f ; 

Temp_Row : = Temp_Row + 1 ; 
end loop; 
end i f ; 


end Di spl ay _Menu_I terns; 
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-- Updates the display by moving the highlight bar with "Fast_Bar_Move" if the 
-- old and new bar positions are already or. the screen. Redefines and displays 
-- the whole display window if some previously undisplayed items must be displayed, 
procedure Update_Menu_I terns (The_Menu : in out Menu_Type) is 

begin 


-- Current item is in window already 

if Is_In_Window (The_Item_Number => The_Menu . Cur rent_I tern, Of_Menu => The_Menu) 
then 

Fast_Bar_Move (The_Menu => The_Menu) ; 
else -- Current item not in the window 

Determine_Items_In_Window (The_Menu => The_Menu) ; 

Displ ay _Menu_I terns (Of_Menu => The_Menu) ; 
end i f ; 

end Updat e_Menu_I terns; 


procedure Display _Menu (The_Menu : in Menu_Type) is 

Saved_Foreground_Color : Screen_Package . Foreground_Color_Type; 
Saved_Background_Coior : Screen_Package . Background_Color_Type; 

begin 

Screen_Package . Get_Screen; 

Saved_Foreground_Color : = Screen_Package . Present_Foreground_Color ; 
Saved_Background_Color : = Screen_Package . Present_Background_Color ; 

Int ernal_Draw_Border ( The_Menu . Upper_Lef t_Row, The_Menu . Upper_Lef t_Column, 

The_Menu . Lower_Right_Row, The_Menu . Lower_Right_Column, 
The_Menu.Color_Scheme / Variable_String_Package . Text_0: 
(The_Menu . Title ) , The. .Menu. Border_Style) ; 

Di splay _Menu_I terns (Of_Menu => The_Menu ) ; 

-- Restore the original foreground and background colors. 

Screen_Package . Set_Foreground_Color { Saved .For eground_Color ) ; 

Screen_Package. Set_Background_Color (Saved. .Background_Color) ; 

Screen_Package . Release_Screen ; 

end Display_Menu; 


Hides the menu by overwriting it with blanks. Uses either the 
fill color passed in from the calling routine or the current 
-- background color. 

procedure Hide_Menu (The_Menu : in Menu_Typo; 

Fill-Color : in Screen_Pc ckage . Background_Color_Type ) is 

Temp_Background_Color : Screen_Package . Bac) ground_Color_Type ; 

Temp_String : constant String (integer (The _Menu . Upper_Lef t_Column) .. integer 

(The_Menu . Lover_Right„Column) ) : = 

(others => ' ' ) ; 


begin 

Screen_Package . Get_Screen; 
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Temp_Background_Color : = Screen_Package . Present_Background_Color ; 
Screen_Package . Set_Background_Color (Fill_Color) ; 

for I in The_Menu . Upper__Lef t_Row .. The_Menu . Lower_Right_Row loop 
Screen_Package . Posi tion_Cursor (I, The_Menu . Upper _Lef t_Column) ; 
Screen_Package . Put (Temp_String) ; 
end loop; 

Screen_Package . Set_JBackground_Color (Temp_Background_Color ) ; 
Screen_Package . Release_Screen; 
end Hide_Menu; 


procedure Menu_Page_Down (The_Menu : in out Menu_Type) is 

Temp_Window_Length : Natural := Menu_Window_Length (The_Menu) ; 
begin 


-- Move Current_Item down one page, or to bottom of list, whichever comes first, 
if (The_Menu. Cur rent_I tern + Temp_Window_length) >= The_Menu . Item_List_Length then 
The_Menu . Cur rent_I tern := The_Menu . Item_List_Length; 
else 

The_Menu.Current_Item : = The_Menu . Current_Item + Temp_Window_Length; 
end i f ; 

-- Adjust the display window to include the new current item. 

Update_Menu_I terns (The_Menu => The_Menu) ; 

end Menu_Page_Down ; 


procedure Menu_Page_Up (The_Menu : in out Menu_Type) is 

Temp_Window_ Length : Natural := Menu_Window_Length (The_Menu) ; 
begin 


-- Move Current_Item up one page, or to top of list, whichever comes first, 
if The_Menu . Current_Item > Temp_Window_length then 

The_Menu. Current_Item := The_Menu . Cur rental tern - Temp_Window_Length ; 
elsif The_Menu . Cur rent _Item > 0 then 
The_Menu . Current_Item : = 1 ; 
end i f ; 

-- Adjust the display window to include the new current item. 

Update_Menu_I terns (The_Menu => The_Menu) ; 

end Menu_Page_Up ; 


procedure Menu_First_Page (The_Menu : in out Menu_Type) is 
begin 

-- Move Current_Item to top of list. 

The_Menu . Cur rent_I tern : = 1 ; 

-- Adjust the display window to include the new current item. 
Update_Menu_Items (The_Menu => The_Menu) ; 

end Menu_First_Page ; 
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procedure Menu_Last_Page (The_Menu : in out Menu_Type) is 
begin 


Move Current_Item to bottom of list. 

The_Menu. Cur rent_I tern := The_Menu . Item_List_Length; 

Adjust the display window to include the new current item. 
Update_Menu_I terns (The_Menu => The_Menu) ; 

end Menu_Last_Page; 


procedure Menu_Bar_Down_One_Line {The_Menu : in out Menu_Type) is 

T emp_W i nao w_Leng t h : Natural := Menu_Window_Length (The_Menu) ; 

Temp_Item_List_Length : Natural Menu_List_Package.Length_.Of 

(The_Menu . Item_List ) ; 


begin 


-- There are items, window space to display items, and there is a menu bar. 
if (Temp_Window_Length > 0) and (The_Menu . Cur rent_I tern > 0) and 
(Temp_Item_List_Length > 0) then 

-- Move Cur rent_I tern "cyclically" to next item of list. 
The_Menu.Current_Item := Next_Item (Of_Menu = > The_Menu); 

Adjust the display window to include the new current item. 
Update_Menu_I terns (The_Menu => The_Menu I ; 

end i f ; 

end Menu_Bar_Down_One_Line; 


procedure Menu_Bar_Up_One_Line (The_Menu : in out Menu_Type) is 

Temp_Item_List_Length : Natural := Menu_Li 5t_Package . Length_0f 

(The_Men i. Item_List) ; 

Temp_Window_Length : Natural := Menu_Wi: idow_Length (The_Menu) ; 
begin 


There are items, window space to display items, and there is a menu bar. 
if (Temp_Window_Length > 0) and (The_Menu . Cur rent_I tern > 0) and 
(Temp_Item_List_Length > 0) then 

-- Move Current_Item "cyclically" to previous item of list. 

The_Menu. Cur rent_I tern := Prev_Item (OfJIenu => The_Menu) ; 

Adjust the display window to include the new current item. 
Update_Menu_I terns (The_Menu => The_Menu ; 

end if; 

end Menu_Bar_Up_One_Line; 


Returns the index of the next location o: The_Char in In_String, starting 
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-- from Starting_Pos . Returns 0 if The_Char does not occur in the string 
-- or if the only occurance of The_Char is at the current position. 

function Find_Char_Index_In_String (The_Char : in Character; 

In_String : in String; 

Starting_Pos : in Natural) return Natural is 

begin 

for String_Index in Starting_Pos + 1 .. In_String ' LAST loop 
if (The_Char = In_String (String_Index) ) then 
return Natural { String_Inaex) ; 
end i f ; 

end loop; 

for String_Index in In_String * FIRST .. Starting_Pos - 1 loop 
if (The_Char = In_String (String__Index) ) then 
return Natural (String_Index) ; 
end i f ; 

end loop; 

return 0 ; 

end Find_Char_Index_In_String; 


-- Check to see if a special key is in the array of special keys 
function Check_Special_Keys (Legal_Special_Keys : in 

Keyboard_Package . Special_Keys_Array_Type ; 

Special__Key : in 

Keyboard_Package . Special_Keys_Type) 
return Boolean is 
begin -- Check_Value 

for Key in Legal_Special_Keys 1 RANGE loop 

if Convert_Special_Key_To_Char (Special_Key ) = Convert_Special_Key_To_Char 

(Legal_Special_Keys (Key) ) then 
return True; 
end i f ; 

end loop; 

return False; 
end Check_Spec i al_Key s ; 


procedure Undef ine_Menu (The_Menu : in out Menu_Type) Is 
begin 

if The_Menu /= null then 

Variable_String_Package . Destroy (The_Menu . Tit le ) ; 
Dispose_Of_Menu ( The_Menu) ; 
end if; 

end Undef ine_Menu; 


procedure Undef ine_Menu 
begin 


( The_Menu : 
The_List : 


in out Menu_Type; 

in out Menu_List_Package . List_Type) is 


Menu_List_Package. Clear ( The_List) ; 


47 



Undef ine_Menu (The_Menu) ; 
end Undef ine_Menu; 


procedure Read_Menu (The_Menu : in out Menu_Type; 

The_Choice : out Natural) is 

Special_Key_List : constant Key board_Package . Spec ial_Keys__Ar ray _Type 

( Keyboard_Pac <age . Home_Key , 

Keyboard_Pac -cage . Up_Ar row_Key , 
Keyboard_Pac -cage . Pg_Up_Key , 

Keyboard_Pac cage . Lef t_Arrow_Key , 
Keyboard_Pac cage . Right„Arrow_Key , 
Keyboard_Pac.cage . End_Key , 

Keyboard_Pac cage . Down_Ar row_Key , 
Keyboard_Paccage . Down_Arrow_Key , 
Keyboard_Pac cage . Pg_Dn_Key ) ; 

Character : = ASCII. nul; 

Keyboard_Paclcage . Speci al_Key s_Type ; 

Boolean := false; 

constant Natural := Me iu_Window_Width (The_Menu) ; 
constant Natural : = Me iu_List_Package . Length_Of 
(The_Menu. Item_List ) ; 

Natural ; 

String (1 .. I tem_Li strength) := (others => ' '); 

Menu_I tem_Type ; 

Natural ; = 0 ; 

Saved_Foreground_Color : Screen_Package . Foreground_Color_Type; 
Saved_Background_Color : Screen_Package . Background_Color_Type ; 

begin 


if The_Menu. Cur rent _Itein = 0 then 
The_Menu . Current_Item := 1; 
end i f ; 

-- Construct the "Hot-Key String” of characters that will cause cursor 
-- movement to specific items, 
for I in 1 . . Item_List_Length loop 

Temp_List_Index I; 

Menu_List_Package.Get_Item (The_Item => Temp_Item, From_List => 

The_Menu . It* >m_L i s t , 

At_Position => Temp_List_Index) ; 

-- If item has a Hot_Key and it shows up in the window, then store it 
-- in the appropriate position in Hot. Key_String . 
if Natural ( Temp_Item. Hot_Key_Position) in 1 . . Temp_Window_Width then 
Hot_Key_String (I) : = Variable_Strinc _Package . Text_Of 

(Temp_Item. Itei ;_VString) 

(Positive (Temp_Item.Hot_Key_Positioi ) ) ; 
end i f ; 

end loop; 


loop 

-- Valid inputs are: 


Kbd_Char : 
Special_Key : 
Is_Special_Key : 
Temp_Window_Width : 
Item_List_Length : 

Temp__List_Index : 
Hot_Key_String : 
Temp_Item : 
Hot_Key_Item : 
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SPECIAL KEYS: Menu => (Home_Key , Up_Arrow_Key , Pg_Up_Key , Lef t_Arrow_Key , 
Right_Arrow_Key , End_Key , Down_Ar row_Key , Pg_Dn_Key ) 

HOT KEYS: Menu item characters denoted by user for fast cursor 

movement . 

ENTER KEY: Key that causes a selection to be made. 


Keyboard_Package . Get_One_Valid_Char 


(Legal_Values => 

Ho t_Key_St r ing&ASC II . CR, 
Legal_Special_Keys => Special„Key_List , 

Special_Key_Hit => Is_Special_Key , 

Entered_Speciai_Key => Special_Key , 
Entered_Value = > Kbd_Char) ; 


if The_Menu . Item_List_Length = 0 then 
exit when Kbd_Char = ascii. cr; 
elsif Is_Special_Key then 

-- Actions to take for the special keys. 

Screen_Package.Get_Screen; 

Saved_Foreground„Color : = Screen_Package . Present_Foreground_Color; 
Saved_Background_Color : = Screen_Package . Present_Background_Color; 
Screen_Package . Position_Cursor (Highlight_Row_Cursor_Position, 

Highlight_Column_Cursor_Posi tion) ; 


case Special_Key is 

when Keyboard_Package . Up_Arrow_Key 1 Keyboard_Package . Lef t_Arrow_Key => 
Menu_Bar_Up_One_Line (The_Menu => The„Menu) ; 
when Keyboard_Package . Down_Arrow_Key I Keyboard_Package . Right_Arrow_Key => 
Menu_Bar_Down_One_Line {The_Menu => The_Menu) ; 
when Keyboard_Package . Home_Key => 

Menu_First_Page (The_Menu => The_Menu) ; 
when Keyboard_Package . End_Key => 

Menu_Last_Page (The_Menu => The_Menu) ; 
when Keyboard_Package . Pg_Up_Key => 

Menu_Page_Up (The_Menu => The_Menu) ; 
when Keyboard_Package . Pg_Dn_Key => 

Menu_Page_Down (The_Menu -> The_Menu) ; 
when others = > 
null ; 
end case; 

-- Restore the original foreground and background colors. 

Screen_Package . Set_Foreground_Color (Saved_Foreground_Color) ; 

Screen_Package . Set_Background_Color {Saved_Background_Color ) ; 

Screen_Package . Release_Screen; 


else 


-- a carriage return has been entered 
-- The highlighted Current_Item has been selected, 
exit when Kbd_Char = ascii. cr; 

-- Hot_Key was pressed. Move highlight bar to the corresponding item. 

-- Key pressed is a character, is it a Hot_Key or a carriage return? 
Hot_Key_Item := Find_Char_Index_In_Str ing ( The_Char => Kbd_Char, 

In_String => Hot_Key_String , 

Start ing_Pos=> 

The_Menu .Cur rent _I tern) ; 

if Hot_Key_Item > 0 then 

-- Actions to take for the special keys. 

Screen_Package . Get_Screen ; 
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Saved_Foreground_Color : = Screen_.Package . Present_Foreground_Color ; 
Saved_Background_Color : = Screen_Package . Present_Background_Color ; 

The_Menu. Cur rent_I tern : = Hot_Key_Item; 

Update_Menu_I terns (The_Menu => Tke_Menu) ; 

-- Restore the original foreground and background colors. 
Screen_Package . Set_Foreground_Col or ( Saved_Foreground_Coior ) ; 
Screen_Package . Set_Background__Color ( Saved_Background_Color ) ; 
Screen_Package . Release_Screen ; 

end i f ; 

end i f ; 

end loop; 

The_Choice := The_Menu . Cur rent _Item; 


end Read_Menu; 


-- Allows the user to make a selection 
procedure Read_Menu (The_Menu 

Legal_Special_Keys 

Keyboard_Package . Special_Keys_Array_Type ; 

Spec ia l_Key_Hi t 
Entered_Special_Key 
Escape_Key_Hit 
The_Choice 

use Keyboard_Package ; 


from the menu. 

: in out Menu_Type ; 

: in 

: ou; Boolean; 

: ou ; Keyboard_Package . Speciai_Keys_Type ; 
: ou : Boolean; 

: ou ; Natural) is 


Menu_Keys 

Spec i a l_Key_Li s t 


Menu_Key_L i s t 


Kbd_Char 
Special_Key 
Is_Special_Key 
Temp_W i ndow_Wi dt h 
1 1 em_L i s t_Leng th 

Temp_List_Index 

Hot_Key_String 

Temp_Item 

Hot_Key_Item 


: constant Keyboard_Package . Special_Keys_Index_Type := 9; 

: Keyboard_Package . Special_Keys_Array_Type 
( Key boar d_Pa ckag e . Spocial_Keys_Inaex_Type ' first . . 

Menu_Keys + Keybo. ird_Package . Special„Keys_Index_Type ' pos ( 
Legal_Special_Key; ; 1 last ) ) ; 

: Keyboard_Package . Sp( ?cial_Keys_Array_JType 

(Keyboard_Package.Special_Keys_Index__Type ' first . . 

Menu_Keys) := 

( Key boa r d__Pac ka ge . H( >me_Key , Keyboard_Package . Up_Arrow_Key , 
Keyboard_Package . Pu_Up_Key , Keyboard_Package . Lef t_Arrow_Key , 
Keyboard_Package . R: ght_Arrow_Key , Keyboard_Package . End_Key , 
Keyboard_Package . D< >wn_Arrow_Key , 

Keyboard_Package . D< *wn_Arrow_Key , 

Keyboard_Package . Pc _Dn_Key ) ; 

: Character; 

: Keyboard_Package . Sj ecial_Key s_Type ; 

: Boolean : = false; 

: constant Natural : = Menu_Window_Width (The_Menu) ; 

: constant Natural Menu_List_Package. Length_Of 

(The_Menu . Item_List ) ; 

: Natural; 

: String (1 .. Item_I ist_Length) : - (others => 1 •); 

: Menu_Item_Type; 

: Natural := 0; 


Saved_Foreground_Color : Screen_Package . Foi eground_Color_Type; 
Saved_Background_Color : Screen_Package . Bac kground_Color_Type; 
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begin 

Special_Key_Hit := FALSE; 

Escape_Key_Hit := F AL S E ; 

if The_Menu. Current_Item = 0 then 
The_Menu . Cur rent_I tern : = 1 ; 
end i f ; 

-- Construct the "Hot-Key String" of characters that will cause cursor 
-- movement to specific items, 
for I in 1 . . Item_List_Length loop 

Temp_List_Index := I? 

Menu_List_?ackage .Get_Item (The_Item = > Temp_Item, 

From_List => The_Menu . Item_List , 

At_Position => Temp_List_Inaex) ; 

-- if item has a Hot_Key and it shows up in the window, then store it 
-- in the appropriate position in Hot_Key_String . 
if Natural { Temp_Item.Hot_Key_Position) in 1 .. Temp_Window_Width then 
Hot_Key_St ring (I) := Variable_String_Package . Text_Of 

(Temp_Item. Item_VString) 

(Positive (Temp_Item. Hot_Key_Position) ) ; 

end i f ; 
end loop; 

-- Construct the special key list. 

Special_Key_List (Keyboard_Package . Special_Keys_Index_Type ' first .. Menu_Keys) := 
Menu_Key_List ; 

Special_Key_List (Menu_Keys + 1 . . Menu_Keys + 

Keyboard_Package . Special_Keys_Index_Type ' pos 
(Legal_Special_Keys ' last ) ) := 

Legal_Special_Keys ; 

loop 

-- Valid inputs are: 

SPECIAL KEYS: Menu => (Home_Key , Up_Arrow_Key , Pg_Up_Key , Lef t_Arrow_Key , 
Right_Arrow_Key , End_Key , Down_Arrow_Key , Pg_Dn_Key ) 

Also, any special keys specified in the Legal_Special_Keys - 
array 

by the user (if the predefined ones appear in this array, it 
will be ignored) . 

HOT KEYS: Menu item characters denoted by user for fast cursor 

movement . 

ENTER KEY: Key that causes a selection to be made. 

ESCAPE KEY: Often used as a special-purpose key during user input (sets 

Escape_Key_Hit flag parameter) . 

Key boar d_Package . Get_One_Valid_Char 

(Legal_Values=>Hot_Key_String&ascii .CR&ASCII . ESC, 
Legal_Special_Keys => Special_Key_List , 
Special_Key_Hit => Is_Special_Key , 

Entered_Speciai_Key => Special_Key, 
Entered_Value => Kbd_Char) ; 

if The_Menu . Item_List_Length = 0 then 

Escape_Key_Hit := Kbd_Char = ASCII. Esc; -- user pressed the escape key 
exit when Kbd_Char = Ascii. CR or Kbd_Char = ASCII. Esc; 

elsif Is_Special_Key then 

-- Actions to take for the special keys. 
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Screen_Package . Get_Screen ; 

Saved_Foreground_Color : - Screen_Pac kage . Present_Foreground_Color ; 
Saved_Background_Color : = Screen_Pac kage . Present_Background_Color ; 
Screen_Package. Posit ion_Cursor ( High light_Row_Cursor_Posit ion, 

Highlight_Column_Cursor_Position) ; 


case Special_Key is 

when Key boa r d_P a c ka ge . U p_Ar r ow_Key I Keyboard_Package . Lef t_Arrow_Key = > 
Menu_Bar_Up_One_Line (The_Menu -> The_Menu) ; 
when Keyboard_Package.Down_Arrow_Xey I Keyboard_Package . Right_Arrow_Key => 
Menu_Bar_Down_One_Line (The_Menu => The_Menu) ; 
when Keyboard_Package . Home__Key => 

Menu_First_Page (The_Menu => The_Menu) ; 
when Keyboard_Package . End_Key => 

Menu_Last_Page (The_Menu -> The_Menu) ; 
when Keyboard_Package . Pg_Up_Key -> 

Menu_Page_Up (The_Menu => The_Menu) ; 
when Keyboard_Package . Pg_Dn_Key => 

Menu_Page_Down (The_Menu -> The_Menu ) ; 
when others => 

if Check_Special_Keys (Legal_Soecial_Keys , Special_Key) then 
Special_Key_Hit : = TRJE; 

Entered_Special_Key := Special_Key; 

Screen_Package . Release_Screen; 
exi t ; 
end i f ; 
end case; 

-- Restore the original foreground and background colors. 

Screen__Package . Set_Foreground_Color (Saved_Foreground_Color ) ; 

Screen_Package. Set_Background_Color (Saved_Background_Color ) ; 

Screen_Package . Release_Screen; 


else 


if Kbd_Char = ASCII.CR then 

exit; -- The highlighted Current _Item has been selected, 

elsif Kbd_Char = ASCII. ESC then 

Escape_Key_Hit : = True; -- The user pressed the escape key 

exit ; 


else -- Key pressed is a character, is 

Hot_Key_Item := Find_Char__Index_I] i_String 


if (Hot_Key_Item > 0) then 

-- Hot_Key was pressed. Move highlight 


it a Hot_Key? 

(The_Char => Kbd_Char, 
In_String=> Hot_Key_String, 
Starting_Pos => 

The_Menu.Current_Item) ; 

bar to the corresponding item. 


-- Actions to take for the special keys. 

Screen_Package . Get__Screen; 

Saved_Foreground_Color : = Screcn_Package . Present_Foreground_Color ; 
Saved_Background_Color : = Scret n_Package . Present_Background_Color; 
Screen_Package. Posit ion_Cursor (Highlight_Row_Cursor_Position, 

Highlight_Colurrcn_Cursor_Posi tion ) ; 


The_Menu. Cur rent_I tern := Hot_K*y__Item; 
Update_Menu_I terns (The_Menu => The_Menu) ; 


-- Restore the original foregrcund and background colors. 
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Screen_Package . Set_Foreground_Color (Saved_Foreground_Color) ; 
Screen_Package . Set_Background_Coior (Saved_Background_Color ) ; 
Screen_Package .Release_Screen; 

end i f ; 
end i f ; 

end if; 

end loop; 

The_Choice := The_Menu .Cur rent_I tern; 

end Read_Menu ; 
end Menu_Package ; 
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-- File Name: DOL_CMDS.MNU 

-- Organization: NASA - Langley Research Center (LaRC) 

-- Project: LIDAR In-Space Technology Experiment (LITE) 


--★fc^************************************************************^^^^***^ 

- - Name / Number : 

DOL_CMDS.MNU (Master AT Menu File) 

-- Abstract: 

This is the menu of all legal DOL commands that can be sent over DOLs 
7-12. Note that the entries in this menu **MUST** be in the same order 
as the entries in the data file DOL_CMDS.DAT for the DOL interface to 
work properly. The strings themselves don't have to match, or even be 
close, but each DOL command name in the data file should be in tha 
corresponding location with the identifier for it in this menu. See 
comments at the top of the data file for more info. 


-- Called By: 

DOL_CMDS.ADB 

__************************************ ********** ******************************* 


[] 

[1] 

[15] 

[ 2 ] 

[35] 

[25] 

[ Blue_Background] 

[ Bright_White_Foreground] 
[ Yel low_Fo re ground] 

[ Yel low_Fo re ground] 

[ Light_Red_Foreground] 
[Single] 


Menu Title 

initial value of Current_Item 

Upper Left Row 

Upper Left Column 

Lower Right Row 

Lower Right Column 

Background Color 

Foreground Color 

Title Color 

Border Color 

Highlight (Hot Key) Color 
Border Type 


*★***★****** + *******•****** ^ 0 nu 1 1 ems 


[7] 

[Turn "Q" Switch On ] 

[7] 

[Turn "Q” Switch Off ] 

[ 1 ] 

[Flashlamps On ] 

[1] 

[Flashlamps Off ] 

[ 8 ] 

[Select Laser A ] 

[ 8 ] 

[Select Laser B ] 

[ 1 ] 

[Initialize Encoders ] 

[ 6 ] 

[Stow Prism ] 




54 



[ 1 ] 

[ Search 


[ 1 ] 

[Align 3 

[ 1 ] 

[Last Aligned Position ] 

[ 1 ] 

[Camera On ] 

[ 1 ] 

[Camera Off ] 

[ 7 ] 

[Go 

[ 7 ] 

[Go 

[ 7 ] 

[ Go 

[ 7 ] 

[Go 

[ 1 ] 

[Ignore SDIO Commands ] 

[ 1 ] 

[Accept SDIO Commands ] 


To Day Data Take ] 
To Night Data Take ] 
To Standby ] 
To BITS ] 



Appendix 2: Filename Manager Package 


-- File Name: FNAMEMGR . ADS 

-- Organization: NASA - Langley Research Center (LaRC) 

-- Project: LIDAR In-Space Technology Experiment (LITE) 


— ***************************** 


**************** ******************************** 


-- Name/Number: 

Fi lename_Manager_Package 


(package spec) 


-- Abstract: 

This package is used to allow greater flexibility in naming external 
files such as data files, initialization files, menu definition files, 
and so on. It allows the code to use identifier strings, called "tags”, 
to select files, instead of being limited to the file naming restrictions 
imposed by the host operating system. In addition, it also prevents 
literal file names from being "hard- wired" into the code. This allows 
the programmer to change file names, or use a substitute file with a 
different name in a test, without having to modify or re-compile his 
code . 


-- Acronyms/ Abbreviations : 

None 

-- Dependencies: 

None 

-- Global Objects: 

None 

-- Exceptions: 

Dupl i cat e_Fi lename 

Duplicate_Tag 

Invalid_File 

I n va 1 i d_F i I ename 

Invalid_Fi le_Contents 

Invalid_Position 

Invalid_Tag 

-- Machine/Compiler Dependencies: 
None 


— ********************************** 




************* 


WITH Variable_String_Package; 
PACKAGE Filename_Manager_Package IS 


-- VISIBLE TYPES 


-- file name/tag list type 

TYPE F i lename_L i s t_Type IS PRIVATE; 

-- When writing a filename list to an external file, this enumerated type 
-- allows a calling routine to have control o^er the desired type of 

file I/O action. When generating a filename list from an external file 
--it allows the calling routine have control over the type of action 
-- taken on the input list. 

TYPE List_Act ion_Type IS (Overwrite, 

Append) ; 
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-- This enumerated type is used in the procedure that Sorts a list. 
-- it allows the calling routine the choice of reordering the 
-- list either by tag or name. 

TYPE Li st_Sor t_Type IS (By_File_Tag, 

By_Filename) ; 


-- VISIBLE EXCEPTIONS 


-- When searching a list for a file tag, this exception is raised if the 
-- file tag is not found 
Invalid_Tag : EXCEPTION; 

-- When searching a list for a filename, this exception is raised if the 
-- filename is not found 
I nva 1 i d_F i 1 ename : EXCEPTION; 

— This exception is raised when a new file tag to be added to a 
-- filename list already exists in that list. 

Duplicate_Tag : EXCEPTION; 

-- This exception is raised when a new filename to be added to a 
-- filename list already exists in that list. 

Duplicate_Fil ename : EXCEPTION; 

-- This exception is raised when a list position passed to a function does 
-- not exist. 

Inval id_Position : EXCEPTION; 

-- This exception is raised when a problem is encountered with opening 
-- or creating an external file 
Inval id_File : EXCEPTION; 

-- This exception is raised when a problem is encounte red while getting 
-- token pairs from an external file. The problem may be a token that 
-- is too long ( > 80 chars) or a token may be missing 
Invalid_File_Contents : EXCEPTION; 


-- VISIBLE FUNCTIONS 


-- This function returns the number of nodes in a filename list. 

-- Inputs: 

Filename_List : input list whose number of nodes (tag/filename pairs) 
is to be returned 

-- Outputs: 

-- Exceptions: 


FUNCTION Length_Of 
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(Filename_List : IN 


F i 1 ename_, Lis t_Type ) RETURN NATURAL ; 


This procedure clears (deallocates) the input list 
-- Inputs: 

Filename_List : input list to be clearel 
-- Outputs: 

Filename_List : cleared null list to return 
-- Exceptions: 


PROCEDURE C 1 e ar _F i 1 ename_L i s t (Filename_List : IN OUT Filename_List_Type) ; 


-- This procedure allows the user to save the current contents of a 
-- filename list to an external file. If the- Action is "Append", 

-- then the tag/filename pairs in the list are appended to the end of the 
-- To_File, empty or not. In this case, if the input list happens to 
-- be null, the file will remain unchanged. If the Action is "Overwrite" 
and the file is not empty, then the tag/fi .ename pairs will overwrite 
the contents of the file. In this case, i : the input list happens 
— to be null, the file will be empty afterwords. 

- - Inputs : 

Filename_List 
To_File 

Action 

-- Outputs: 

- - Except ions : 

Invalid_File - raised when there is a problem with the external 
file open or creation 


- tag/filename list to be written from 

- external output file for which to write the 
tag/ filename pairs 

- action to take on file, either append or overwrite 


PROCEDURE Save_Filename_List (Filename_List : IN 

To_Fi le : IN 

Action : IN 


F i 1 ename_L i s t _Ty pe ; 
STRING ; 

List_Action_Type) ; 


-- This procedure is used to create a new list of filenames and tags. 

-- It reads the filenames and the tags 
-- from an external file. If the Action is 

-- "Overwrite", the list will be overwritten with the new entries found in 
-- the From_File. If the Action is Append, the tag/filename pairs found 
-- in the given From_File will be appended to the list. The From_Fiie 
--is checked for duplicate file tags and filenames and exceptions raised 
-- when necessary. 
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-- Inputs: 

Filename_List - tag/filename list to be manipulated 
From_File - external file from which to read the tag/filename 

pairs and put int the Filename_List 
Action - action to take on list, either append or overwrite 


-- Outputs: 

Filename_List - tag/filename list to be manipulated 
-- Exceptions: 

Invalid_File_Contents - raised when an expected token can not 

be found in the external file or 

if a token is too long ( > Max_Token_Length) 

Invalid_File - raised when there is a problem with the 

external file open or creation 


PROCEDURE Generate_Filename_List 

(Filename_List : IN OUT Filename_List_Type ; 

From_File : IN STRING; 

Action : IN List_Act ion_Type ) ; 


-- This procedure allows the user to add a new file tag/ filename pair to 
-- the end of the filename list. Duplicate tags and filenames are not 
-- allowed and raise the Duplicate_Tag or Duplicate_Filename exceptions. 

-- Inputs: 

Filename_List 
File_Tag 
Filename 

-- Outputs: 

Filename_List - tag/f ilename list after addition of new pair 
-- Exceptions: 

Duplicated ilename - raised when the input filename is found to 

already exist in the list 

Duplicate_File_Tag - raised when the input file tag is found to 

already exist in the list 


- tag/filename list to be add to 

- file tag to be added to list end 

- filename to be added to list end 


PROCEDURE App en d_To_F i 1 ename_L i s t 

(Filename__List : IN OUT Filename_List_Type ; 

File_Tag : IN STRING; 

Filename : IN STRING) ; 


-- This procedure allows the user to do a "sorted" insert of a new 
-- file tag/filename pair into the filename list. The pair will be 
-- alphanumerical ly inserted either by file tag or by filename. The 
-- routine assumes that the list is already properly sorted for the 
-- desired insert. Results will be unpredictable if either the list 
-- is not already sorted or if the pair is inserted by the wrong 
-- token (tag or name) . Duplicate tags and filenames are not 
-- allowed and raise the Duplicate_Tag or Duplicate_F ilename exceptions. 
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-- Inputs: 

F i 1 ename_Li s t 
File_Tag 
Filename 
Insert 


tag/f ilename list to be add to 
file tag to be added tc list end 
filename to be added tc list end 
insert type (by file tag or filename) 


-- Outputs: 

F i 1 ename_Li sc - tag/filename list after addition of new pair 
-- Exceptions: 

Duplicate_F ilename - raised when the input filename is found to 

already exist in tie list 

Duplicate_File_Tag - raised when the input file tag is found to 

already exist in trie list 


PROCEDURE 


Insert_Into_Filename_List 


(Filename_List : IN OUT 

File_Tag : IN 

Filename : IN 

Insert : IN 


Filename._List_Type ; 
STRING; 

STRING; 

List_Sort_Type ) ; 


This procedure allows the user to delete a file tag/filename pair 
-- from a filename list. The list is searched for the given file tag and 
-- when found, the tag/ filename pair are deleted. The Invalid_Tag 
exception will be raised if the file tag is not found. 

-- Inputs: 

Filename_List 
FiIe_Tag 

-- Outputs: 

Filename_List - tag/filename list after addition of new pair 
-- Exceptions: 

Invalid_Tag - raised when the input file tag is not found in the list 


- tag/filename list to be deleted from 

- file tag to delete (filename deleted also) 


PROCEDURE Delete_File_Tag 

(Filename_List : IN OUT Filename, _List_Type ; 
File_Tag : IN STRING) ; 


-- This procedure allows the user to delete a file tag/filename pair 
-- from a filename list. The list is searched for the given filename and 
-- when found, the tag/ filename pair are deleted. The Invalid_Filename 
-- exception will be raised if the filename in not found. 

-- Inputs: 

Filename_List - tag/filename list to be deleted from 
Filename - filename to delete (file tag deleted also) 

-- Outputs: 

Filename_List - tag/filename list after addition of new pair 
-- Exceptions: 

I nvalid_F ilename - raised when the input filename is not found 
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in the list 


PROCEDURE Delete_Filename 

(Filename__List : IN OUT Fi lename_List_Type ; 
Filename : IN STRING) ; 


-- This function searches a filename list for a filename and returns 
-- a boolean telling whether or not it was found. 

-- Inputs: 

F i 1 ename_L i s t - tag/filename list to be searched 
Filename - filename to search for in list 

-- Outputs: 

-- Exceptions: 


FUNCTION Filename_Exists 

(Filename_List : IN Filename_List_Type; 

Filename : IN STRING) RETURN BOOLEAN; 


— This function searches a filename list for a file tag and returns 
-- a boolean telling whether or not it was found. 

-- Inputs: 

Filename_List - tag/filename list to be searched 
File_Tag - tag to search for in list 

-- Outputs: 

-- Exceptions: 


FUNCTION File_Tag_Exists 

(Filename_List : IN Filename_List_Type; 

File_Tag : IN STRING) RETURN BOOLEAN; 


— This function searches the specified list for the file tag passed 
-- to it and returns the file name associated with that tag. The 
-- tag comparisons are NOT case sensitive. 

-- Inputs: 

Filename_List - tag/filename list to be searched 
File_Tag 

-- Outputs: 

-- Exceptions: 

Invalid_Tag 


- tag to search for in list 


- raised when the input file tag is not found 
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in the list 


FUNCTION Get_Filename 

(Filename_List : IN Filename, Lis t_Type; 

Fiie_Tag : IN STRING) RETURN STRING; 


-- This function searches the specified list for the filename passed 
-- to it and returns the file tag associated with that filename. The 
-- filename comparisons are NOT case sensitive. 

-- Inputs: 

F i 1 ename_Li st 
Filename 

-- Outputs: 

-- Exceptions: 

Invalid_Filename - raised when the input filename is not found 
in the list 


- tag/filename list to be searched 

- filename to search for in list 


FUNCTION Get_File_Tag 

(Filename_List : IN Filename_List_Type ; 

Filename : IN STRING) RETURN STRING; 


This function finds the node specified by the position passed 
-- in and returns the filename at that position. 

-- Inputs: 

F i 1 ename_Li s t 
Position 

-- Outputs: 

-- Exceptions: 

Invar id_Pos it ion - position does not ex _st for input list 


~ tag/filename list to be searched 
- position in list to return filename from 


FUNCTION Get_Fi lename 

(Filename_List : IN Filename_ ,ist_Type ; 

Position : IN Natural) RETURN STRING; 


This function finds the node specified by he position passed 
--in and returns the file tag at that position. 

-- Inputs: 

F i 1 ename_Li s t 
Position 

-- Outputs: 

-- Exceptions: 

Invalid_Position - position does not ex: st for input list 


- tag/filename list to be searched 

- position in list to return file tag from 
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FUNCTION Get_File_Tag 

(Filename_List : IN Filenarne_List_Type ; 

Position : IN Natural) RETURN STRING; 


-- This function searches for the specified filename in the list, and 
-- returns the position in the list of the node which contains it. 

-- Inputs: 

Filename_List - tag/filename list to be searched 
Filename - filename to search for in list 

-- Outputs: 

-- Exceptions: 

Invalid_Filename - raised when the input filename is not in the 
input list 


FUNCTION Get_Filename_Position 

(Filename_List : IN Fiiename_List_Type ; 

Filename : IN STRING) RETURN NATURAL; 


-- This function searches for the specified file tag in the list, and 
-- returns the position in the list of the node which contains it. 

-- Inputs: 

Filename_List 
File_Tag 

-- Outputs: 

-- Exceptions: 

Invalid_File_Tag - raised when the input file tag is not in the 
input list 


- tag/filename list to be searched 

- file tag to search for in list 


FUNCTION Get_File_Tag_Posit ion 

(Filename_List : IN Filename_List_Type; 

FileJTag : IN STRING) RETURN NATURAL; 


-- This procedure sorts a list. The user has the option to do the 
-- reorder by file tag or filename. The procedure uses a bubble sort 
-- swapping pointers when necessary instead of exchanging file tags and 
-- filenames. 

-- Inputs: 

Filename_List - tag/filename list to be sorted 
Sort - sort type (by file tag or filename) 

-- Outputs: 

Filename_List - tag/filename list to be sorted 
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-- Exceptions: 


PROCEDURE Sort_Fi lename_List 
(Filename_List : 
Sort : 

IN OUT 
IN 

Filename _List_Type ; 
List_Soi t_Type) ; 



PRIVATE 

TYPE File_Node_Type; 

TYPE File_Node_Access_Type IS ACCESS File_Node_Type; 
TYPE Fi 1 e_Node_Type IS 
RECORD 

File_Tag : Variable_String_Package . VString; 

Filename : Variable_String_Package . VString; 

Next : Fi le_Node_Access_Type ; 

END RECORD; 

TYPE Filename_List_Type IS 
RECORD 

Length : NATURAL := 0; 

Node_List : File_Node_Access_Type ; 

END RECORD; 

END Filename_Manager_Package ; 
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FNAMEMGR . ADB 

NASA - Langley Research Center (LaRC) 

LXDAR In-Space Technology Experiment (LITE) 


-- File Name: 

-- Organization: 
-- Project: 


-.a**************************************************************************** 

-- Name/Number: 

Filename_Manager_Package (package body) 

-- Abstract: 

This package is used to allow greater flexibility in naming external 
files such as data files, initialization files, menu definition files, 
and so on. It allows the code to use identifier strings, called "tags", 
to select files, instead of being limited to the file naming restrictions 
imposed by the host operating system. In addition, it also prevents 
literal file names from being "hard-wired" into the code. This allows 
-- the programmer to change file names, or use a substitute file with a 
different name in a test, without having to modify or re- compile his 
code. 

-- Acronyms /Abbreviat i ons : 

None 

-- Dependencies: 


-- Global Objects: 

None 

-- Exceptions: 

Duplicate_Filename 

Dupl icate_Tag 

Invalid_File 

Inva 1 i d_F i 1 ename 

Invalid_File_Contents 

Invalid_Position 

Invalid_Tag 

-- Machine/Compiler Dependencies: 
None 


***************************************************************************** 


WITH Unchecked_Deallocation; 

WITH File_Utilities_Package; 

PACKAGE BODY Filename_Manager_Package IS 

Max_Token_Length : CONSTANT := 80; 


-- Unchecked deallocation procedure 


PROCEDURE Dispose IS NEW Unchecked_Deal location 

(File_Node_Type, Fi le_Node_Access_Type) ; 
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-- This internal function takes an input string, converts it to all 
-- upper case, and then returns the new string. 

-- Inputs: 

Input_String - string to convert to upper case 
-- Outputs: 

-- Exceptions: 


FUNCTION Convert_To_Upper ( Input_String : IN STRING) RETURN STRING IS 

Temp_String : STRING (1 .. Max_Token_Length) := (OTHERS => ' '); 

Lower_To_Upper_ASCII_Of f set : CONSTANT 

: = CHARACTER ' POS ( ' a ' ) - CHARACTER 1 POS ( 1 A ' ) ; 


BEGIN 

Temp_String ( Input_St ring ' RANGE) : = Input_Szring; 

-- examine every character in the string 
FOR I IN Input_JString ' RANGE LOOP 

-- if lower case, convert it to upper case 
IF Tempos t ring (I ) IN 1 a'.-'z' THEN 

Temp_String ( I ) := CHARACTER 1 VAL ( (CHARACTER ' POS (Temp_St ring (I ) ) - 

Lower_To_Upper_ASCII_Of f set ) ) ; 

END IF; 

END LOOP; 

RETURN Temp_String (Input _St ring ' RANGE) ; 

-- allow calling routine to handle the exceptions 
EXCEPTION 

WHEN OTHERS => 

RAISE; 

END Convert_To_Upper ; 


-- This function returns the number of nodes _n a filename list. 

-- Inputs: 

Filename_List : input list whose number of nodes (tag/ filename pairs) 
is to be returned 

-- Outputs: 

- - Except ions : 


FUNCTION Length_Of 

(Filename_List : IN Filename_ jist_Type) RETURN NATURAL IS 

BEGIN 

RETURN F ilename_Li st . Length; 

-- allow calling routine to handle the except .ons 
EXCEPTION 

WHEN OTHERS => 
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RAISE; 


END Length_Of; 


-- This procedure clears (deallocates) the input list 
-- Inputs: 

Filename_List : input list to be cleared 
-- Outputs: 

Filename_List : cleared null list to return 
-- Exceptions: 


PROCEDURE Clear_Filenarae_List (Filename_List : IN OUT Fi lename_List_Type ) IS 

-- temporary pointer used to manipulate tag/ filename list 
Temp_Ptr : File_Node_Access_Type := Fiiename_List . Node_JList ; 

BEGIN 

-- delete every node 

WHILE Filename_List . Node_List i- NULL LOOP 

-- dispose of the tag and filename 
Variable_String_Package . 

Destroy (The_String => Temp_Ptr . File_Tag ) ; 

Variable_String_Package . 

Destroy (The__String => Temp_Ptr . Filename ) ; 

-- set the temp pointer to the next node 
Temp_Ptr : = Temp_Ptr . Next ; 

-- dispose of the current node 
Dispose (Filename_List . Node_List ) ; 

-- make list point to next node 
Filename_List .Node_List := Temp_Ptr; 

END LOOP; 

-- reset the list length 
Filename_List . Length := 0; 

-- allow calling routine to handle the exceptions 
EXCEPTION 

WHEN OTHERS => 

RAISE; 

END Clear_Filename_List ; 


-- This procedure allows the user to save the current contents of a 
-- filename list to an external file. If the Action is "Append", 

-- then the tag/filename pairs in the list are appended to the end of the 
-- To_File, empty or not. In this case, if the input list happens to 
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-- be null, the file will remain unchanged. If the Action is "Overwrite" 
-- and the file is not empty, then the tag/filename pairs will overwrite 
-- the contents of the file. In this case, if the input list happens 
-- to be null, the file will be empty afterwords. 

-- Inputs: 

Filename_List - tag/ filename list to be written from 
To_File - external output file for which to write the 

tag/filename pairs 

Action - action to take on file, either append or overwrite 

-- Outputs: 

-- Exceptions: 

Invalid_File - raised when there is a problem with the external 
file open or creation 

PROCEDURE Sa v e_F i 1 ename_L i s t (Filename_List : IN Fi lename_List_Type ; 

To_Fi le : IN STRING; 

Action : IN List_Action_Type ) IS 

-- for opening file 

Aborted : BOOLEAN FALSE; 

-- file utilities package file identifier 

File_ID : File_Utilities_Package . File_Identif ier_Type; 

temporary pointer used to manipulate tag/filename list 
Temp_Ptr : File_Node_Access_Type := Filename_List . Node_List ; 

BEGIN 

-- open the file according to the desired action 
IF Action = Append THEN 
File_Ut ilities_Package . 

Op en__Out pu t_Fi 1 e 

(Filename => To_File, 

File_Mode ~> File_Utilities_Pac cage . Append, 

File_ID => File_ID, 

Aborted = > Aborted) ; 

ELSE 

File_Ut ilities_Package . 

Open_Output_Fi le 

(Filename => To_File, 

Fiie_Mode - > File_Utilities_Pac ;age .Overwrite, 

File_ID = > File_ID, 

Aborted = > Aborted) ; 

END IF; 

IF NOT Aborted THEN -- file open/creation ok 

-- put all tag/filename pairs to output file 
FOR I in 1 . . Filename_List .Length LOOP 
File_Utilities_Package . 

Put_Token 

(Token_File => File_ID, 

Item => Variable_String. .Package . 

Text_Of (Temp. .Ptr . File_Tag) ) ; 

File_Utilit ies_Package . 

Put_Token 

(Token_File => File_ID, 

Item => Variable_String_ .Package . 

Text„Of (Temp. Ptr .Filename) ) ; 
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=> "") ; 


-- blank line 
File_Utilities_Package . 

Put_Line (File_ID => File_ID, Item 

-- go to next pair 
Temp_Ptr := Temp_Ptr .Next ; 

END LOOP; 

-- all done getting token pairs, close the file 
File_Utilit ies_Package . Close_Input_File (File_ID) ; 

ELSE 

RAISE Invalid_File; -- problem w/ file open or creation 
END IF; 

-- allow calling routine to handle the exceptions 
EXCEPTION 

WHEN OTHERS => 

RAISE; 

END Save_Fi lename_List ; 


-- This procedure is used to create a new list of filenames and tags. 

-- " Generate_Filename_List " , reads the filenames and the tags associated 
-- with them from a file to build a filename list. If the Action is 
-- "Overwrite", the list will be overwritten with the new entries found in 
-- the From_File. If the Action is Append, the tag/ filename pairs found 
-- in the given From_File will be appended to the list. The From_File 
-- is checked for duplicate file tags and filenames and exceptions raised 
-- when necessary. 

-- Inputs: 

F i 1 ename_Li s t 
From_File 

Action 

-- Outputs: 

Filename_List - tag/filename list to be manipulated 
-- Exceptions: 

Invalid_File_Contents - raised when an expected token can not 

be found in the external file or 
if a token is too long ( > Max_Token_Length) 
Invalid_File - raised when there is a problem with the 

external file open or creation 


- tag/filename list to be manipulated 

- external file from which to read the tag/filename 
pairs and put into the Fi lename_List 

- action to take on list, either append or overwrite 


PROCEDURE Generate_Filename_List 

(Filename_List : IN OUT Filename_List_Type ; 
From_File : IN STRING; 

Action : IN List_Action_Type) IS 

-- for opening file 

Successful : BOOLEAN := FALSE; 

-- file utilities package file identifier 
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Fi le_ID : File_Ut il it ies_Package . File_l dentif ier_Type; 

-- get_token length variables 
FN_Length : NATURAL 
FT_Length : NATURAL 

-- get_token tokens 
File_Tag : STRING ( 1 . .Max_Token_Length) := (OTHERS => ' '); 

Filename : STRING (1 . . Max_Token_Length) : = (OTHERS => • '); 

-- token strings are converted and stored in the list as vstrings 
VFile_Tag : Variable_String_Package . VSTRING ; 

VFilename : Variable_String_Package . VSTRING ; 

-- for counting the number of nodes in the list 
Node_Counter : NATURAL := 1; 

-- temporary pointer used to manipulate tag/ filename list 

Temp__Ptr : File_Node_Access_Type := Filename_List .Node_List ; 

BEGIN 

-- open the input file 

Fi le_Ut i li t ies_Package . Open_Input_File 

(Filename => From_File, 

File_ID => File_ID, 

Successful => Successful); 

IF Successful THEN -- file opened ok 

-- clear list if Action is Overwrite 
IF Action = Overwrite THEN 

-- if current list not null, deallocate it 
IF FiIename_List . Length > 0 THEN 

Clear_Filename_List (Filename__List ) ; 

END IF; 

END IF; 

-- get all tag/filename pairs in input file 
WHILE NOT File_Utilities_Package. EOF (Fi le_ID) LOOP 

-- get the file tag from the input file 
Fiie_Utilities_Package . Get_Token 

(Token_Fil 2 => File_ID, 

Token => Fiie_Tag, 

Length => FT_Length) ; 

check to see that a token exists; if one doesn't, get out of 
-- the loop 
IF FT_Length = 0 THEN 

IF File_Utilities_Package .EOF (File_ID) THEN 
EXIT; 

ELSE 

RAISE Inva 1 i d_F i 1 e_C on t ent s ; 

END IF; 

END IF; 

-- get the filename from the input f.le 
File_Utilities_Package .Get_Token 

(Token_Fili ? r:> File_ID, 


:= 0 ; 
: - 0 ; 
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Token => Filename, 

Length => FN_Length) ; 

-- check to see that the corresponding filename token exists in 
-- the file; if one doesn't, raise the Invalid_File__Contents 
-- exception 
IF FN_Length - 0 THEN 

RAISE Invalid_File_Contents ; 

ELSE 

Append_To_F i 1 ename_Li st 

(Filename_List => Filename_List , 

File_Tag => File_Tag ( 1 . . FT_Length) , 

Filename => Filename { 1 . . FN_Length) ) ; 


END LOOP; 


-- all done getting token pairs, close the file 
File_Ut ilit ies_Package . Close__Input_File (File_ID) ; 

ELSE 

RAISE Invalid_File; -- problem w / open 

END IF; 

-- allow calling routine to handle the exceptions 
EXCEPTION 

-- token too long 
WHEN Const ra in t_Error => 

RAISE Invalid_File_Contents ; 

WHEN OTHERS => 

RAISE; 

END Generate_Filename_List ; 


-- This procedure allows the user to add a new file tag/filename pair to 
-- the end of the filename list. Duplicate tags and filenames are not 
-- allowed and raise the Duplicate_Tag or Duplicate_Filename exceptions. 

-- Inputs: 

F i 1 ename_L i s t 
File_Tag 
Filename 

-- Outputs: 

Filename_List - tag/filename list after addition of new pair 
-- Exceptions: 

Duplicate_Filename - raised when the input filename is found to 

already exist in the list 

Duplicate_File_Tag - raised when the input file tag is found to 

already exist in the list 


- tag/filename list to be add to 

- file tag to be added to list end 

- filename to be added to list end 


PROCEDURE Append_To_Filename_List 


(Filename^ List 
File_Tag 
Filename 


IN OUT Filename_List_Type ; 
IN STRING; 

IN STRING) IS 
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-- token strings are converted and stored in the list as vstrings 
VFile_Tag : Variable_String_Package . VST RING ; 

VFilename : Var iable_String_Package . VST RING ; 

-- for counting the number of nodes in the list 
Node_Counter : NATURAL := l ; 

-- temporary pointer used to manipulate tag/filename list 
Temp_Ptr : File_Node_Access_Type := Filename_List . Node_List ; 

BEGIN 

Node_Count er := 1; -- initially 

-- first search list for duplicate tag & filenames 
IF FiIename_List .Length > 0 THEN 

-- examine all nodes 

WHILE Node_Counter <= Filename_List . Length LOOP 
-- compare tags 

IF Convert _To_Upper (Variable„String_?ackage . 

Text_Of (Temp_?tr . File_Tag) ) = 
Convert_To_Upper (File_Tag) THEN 

RAISE Duplicate_Tag; 

-- compare filenames 

ELSIF Convert_To_Upper (Variable_Stri ig_Package . 

Text_Of (Temp_Ptr .Filename) ) = 
Convert_To_Upper (Filename) THEN 

RAISE Duplicate_Filename; 

-- bump to next node 
ELSE 

Temp_Ptr := Temp_Ptr . Next ; 

Node_Counter : = Node_Counter + 1 ; 

END IF; 

END LOOP; 

END IF; 


-- convert the strings to vstrings 
Var iable_Str ing_Package . Make_Vstring 

Variable_String_Package . Make_Vstring 


( The_String 
New_Vstring 
(The_String 
NewJ 'string 


=> File_Tag ( 

= > VFile_Tag) ; 
=> Filename, 

= > VFilename) ; 


-- append a node to the list 
IF Filename_List . Length = 0 THEN 

~~ for the first node, the temporary pointer should point 
-- to the new node and the filename list's node list should 
-- point to the first node 

Temp_Ptr := NEW File_Node_Type ' (VFileJTag, VFilename, NULL); 
Filename_List .Node_List Temp_Ptr; 


ELSE 

reset the pointer to the front of th« list 
Temp_Ptr : = Filename_List .Node_List ; 

-- find the end of the list if it is not empty and add new 
-- tag/ filename pair there 
WHILE Temp_Ptr .Next /= NULL LOOP 
Temp_Ptr : = Temp_Ptr .Next ; 
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END LOOP; 


- - append new node 

Temp_Ptr .Next := NEW File_Node_Type ' (VFile_Tag, VFilename, NULL); 
END IF; 

-- increment the list length 

Filename_List . Length ;= Filename_List . Length + 1; 

-- allow calling routine to handle the exceptions 
EXCEPTION 

WHEN OTHERS => 

RAISE; 

END Append_To_Fi 1 ename_Li st ; 


-- This procedure allows the user to do a "sorted" insert of a new 
-- file tag/filename pair into the filename list. The pair will be 
-- alphanumerical ly inserted either by file tag or by filename. The 
-- routine assumes that the list is already properly sorted for the 
-- desired insert. Results will be unpredictable if either the list 
-- is not already sorted or if the pair is inserted by the wrong 
-- token (tag or name) . Duplicate tags and filenames are not 
-- allowed and raise the Duplicate_Tag or Duplicate_Filename exceptions. 

-- Inputs: 

F i 1 ename_L i s t 
File_Tag 
Filename 
Insert 

-- Outputs: 

Filename_List - tag/filename list after addition of new pair 
-- Exceptions: 

Duplicate_Filename - raised when the input filename is found to 

already exist in the list 

Duplicate_File_Tag - raised when the input file tag is found to 

already exist in the list 


- tag/filename list to be add to 

- file tag to be added to list end 

- filename to be added to list end 

- insert type (by file tag or filename) 


PROCEDURE Insert_Into_Filename_List 


(Filename_List : IN OUT 

File_Tag : IN 

Filename : IN 

Insert : IN 


Fi lename_List_Type ; 
STRING; 

STRING; 

List_Sort_Type) IS 


-- token strings are converted and stored in the list as vstrings 
VFile_Tag : Variable_String_Package . VSTRING ; 

VFilename : Variable_String_Package . VSTRING ; 

-- for counting the number of nodes in the list 
Node_Counter : NATURAL := 1; 

-- temporary pointers used to manipulate tag/filename list 
Temp_Ptr : File_Node_Access_Type := Filename_List . Node_List ; 

-- local boolean 


73 



Insert_Made : BOOLEAN 


= FALSE; 


BEGIN 

Node_Count er : = 1 ; -- initially 

first search list for duplicate tag & filenames 
IF Filename_List .Length > 0 THEN 

-- examine all nodes 

WHILE Node_Counter <= Filename_List . Ler gth LOOP 
-- compare tags 

IF Convert_To_Upper (Variable_String_ Package . 

Text_Of (Temp_Ptr . File_Tag) ) = 
Convert_To_Upper (File_Tag) THEN 

RAISE Duplicate_Tag ; 

-- compare filenames 

ELSIF Convert _To_Upper (Variable_String_Package . 

Text_Of (Temp_Ptr . Filename) ) = 
Convert_To_Upper ( Filename ) THEN 

RAISE Duplicate_Filename ; 

-- bump to next node 
ELSE 

Temp_Pt r : - Temp_Pt r . Next ; 

Node_Counter Node_Counter + 1; 

END IF; 

END LOOP; 

END IF; 

-- reset the pointers to the front of the list 
Terap_Ptr : = Filename_List . Node_List ; 

-- convert the strings to vstrings 

Variable_String_Package.Make_Vstring (The_ string => File_Tag, 

New__ /'string -> VFile_Tag) 

String Package. Make Vstring {The string => Filename, 

New_ /string => VFilename) 

-- insert a node into the list 
IF Filename_Li st .Length = 0 THEN 

-- for the first node, the temporary po .nter should point 
-- to the new node and the filename list’s node list should 
““ point to the first node 

Temp_Ptr := NEW F i 1 e_Node_Type 1 (VFile_T« tg, VFilename, NULL); 
Filename_List .Node_List := Temp_Ptr; 

ELSE 

-- prepend new node 
IF (Insert = By_File_Tag AND 

Convert_To_Upper (File__Tag) < 

Convert_To_Upper (Variable_String. Package. 

Text_Of (Temp. Ptr .File_Tag) ) ) OR 

(Insert = By_Filename AND 

C on v e r t _To_Uppe r ( Fi lename ) < 
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Convert_To_Upper (Variable_String_Package . 

Text_Of (Temp_Ptr . Filename) ) ) THEN 

Temp_Ptr : = NEW File_Node_Type ' 

(VFile_Tag, VFilename, Filename_List .Node_List ) ; 
Filenaine_List .Node_List : = Temp_Ptr; 


ELSE 

Insert_Made := FALSE; 

-- find the node to insert at if the list is not empty and add new 
-- tag/filename pair there 
WHILE Temp_Ptr .Next } - NULL LOOP 

IF (Insert = By_File_Tag AND 

Convert_To_Upper (File_Tag) < 

Convert_To_Upper ( Variable_String_Package . 

Text_Of (Temp_Ptr .Next . File_Tag) ) ) OR 

(Insert = By_Filename AND 

Convert__To_Upper (Filename ) < 

Convert_To_Upper ( Variable_Str ing_Package . 

Text_Of (Temp_Ptr .Next . Filename) ) ) THEN 

Temp_Ptr .Next := NEW File_Node_Type 1 

(VFile_Tag, VFilename, Temp_Ptr .Next ) ; 
Insert_Made TRUE; 

EXIT; 


ELSE 

Temp_Ptr := Temp_Ptr .Next ; 

END IF; 

END LOOP; 

IF NOT Insert_Made THEN 
— append new node 

Temp_Ptr .Next := NEW File_Node_Type ' 

(VFile_Tag f VFilename, NULL) ; 

END IF; 

END IF; 

END IF; 

-- increment the list length 

Filename_List . Length := Filename_List . Length + 1; 

-- allow calling routine to handle the exceptions 
EXCEPTION 

WHEN OTHERS => 

RAISE; 

END Insert_Into_Filename_List ; 


-- This procedure allows the user to delete a file 
-- from a filename list. The list is searched for 
-- when found, the tag/ filename pair are deleted. 
-- exception will be raised if the file tag is not 


tag/filename pair 
the given file tag and 
The Invalid_Tag 
found. 
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-- Inputs: 

Filename_List - tag/filename list to be deleted from 
File_Tag - file tag to delete (filename deleted also) 


-- Outputs: 

F i lename_Li st - tag/filename list after addition of new pair 
-- Exceptions: 

InvaIid_Tag - raised when the input file tag is not found in the list 


PROCEDURE Delete_Fi le_Tag 

(Filename_List : IN OUT Filename _List_Type ; 

File_Tag : IN STRING) IS 

-- for counting the number of nodes in the list 
Node_Counter : NATURAL := 1; 

-- temporary pointers used to manipulate tag/filename list 
Temp_Ptr : FiIe_Node_Access_Type := Fi Lename_List . Node_List ; 

Prev_Ptr : File_Node_Access_Type := Fi lename_List . Node_List ; 

-- boolean used to control search 

Found : BOOLEAN := FALSE; 

BEGIN 


-- initialize 
Found : = FALSE ; 

Node_Counter := 1; 

-- examine every node until found or end o: list is reached 
WHILE Node_Count er <= Fi lename_List . Length AND NOT Found LOOP 

- - comparisons are not case sensitive; convert both to upper case 
-- and then compare them 
IF Convert__To_Upper 

(Variable_String_Package . 

Text_Of (Temp_Ptr . File_Tag) ) = Convert_To_Upper { File_Tag) THEN 

Found : = TRUE ; 

-- first node 
IF Node_Counter - 1 THEN 

Fi 1 ename_Li st . Node_Li st := Temp_P::r . Next ; — move to next node 
-- last node 

ELSIF Node_Counter = Filename_List . Length THEN 
-- bump to next to last node 
FOR I IN 1 .. Filename_List . Length 2 LOOP 
Prev_Ptr := Prev_Ptr .Next ; 

END LOOP; 

Prev_Ptr . Next := NULL; -- set new last node to null 

-- all others 
ELSE 

-- bump to next to node just before the one to be deleted 
FOR I IN 1. . Node_Counter - 2 LOOP 
Prev_Ptr := Prev_Ptr .Next ; 

END LOOP; 

Prev_Ptr . Next : = Temp_Ptr . Next ; -- circumvent deleted node 
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END IF; 

Dispose (Temp_Ptr) ; -- dispose of deleted node 
Fiiename_List . Length := Fi lename_List . Length - 1; 

-- bump to next node; increment node counter 
ELSE 

Temp_Ptr := Temp_Ptr .Next ; 

Node_Counter := Node_Counter + 1; 

END IF; 

END LOOP; 

-- done searching list; if the file tag was not found raise the 
-- Invalid_Tag exception 
IF NOT Found THEN 

RAISE Invalid_Tag; 

END IF; 

-- allow calling routine to handle the exceptions 
EXCEPTION 

WHEN OTHERS => 

RAISE; 

END Delete_File_Tag ; 


-- This procedure allows the user to delete a file tag/ filename pair 
-- from a filename list. The list is searched for the given filename and 
-- when found, the tag/ filename pair are deleted. The Invalid_Filename 
-- exception will be raised if the filename is not found. 

-- Inputs: 

Filename_List - tag/filename list to be deleted from 
Filename - filename to delete (file tag deleted also) 

-- Outputs: 

Filename_List - tag/filename list after addition of new pair 
-- Exceptions: 

Invalid_Filename - raised when the input filename is not found 
in the list 


PROCEDURE Delete_Filename 

(Filename_List : IN OUT Filename_List_Type ; 

Filename : IN STRING) IS 

-- for counting the number of nodes in the list 
Node_Counter : NATURAL := 1; 

-- temporary pointers used to manipulate tag/filename list 
Temp_Ptr : File_Node_Access_Type : = Filename„List . Node_List ; 

Prev_Ptr : File_Node_Access_Type := Fiiename_List . Node_List ; 

-- boolean used to control search 

Found : BOOLEAN := FALSE; 

BEGIN 

-- initialize 
Found : = FALSE ; 

Node_Counter := 1; 
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-- examine every node until found or end cf list is reached 
WHILE Node_Counter <= Filename_List . Length AND NOT Found LOOP 

-- comparisons are not case sensitive; convert both to upper case 
-- and then compare them 
IF Convert_To_Upper 

( Variable_String_Package . 

Text_Of (Temp_Ptr. Filename) ) - Convert_To_Upper (Filename) THEN 

Found : = TRUE; 

-- first node 
IF Node_Counter - 1 THEN 

Filename_List .Node_List := Temp_Prr .Next ; -- move to next node 
-- last node 

ELSIF Node_Counter = Filename_List . Length THEN 
-- bump to next to last node 
FOR I IN 1 .. Filename_List . Length - 2 LOOP 
Prev_Ptr := Prev_Ptr .Next ; 

END LOOP; 

P r ev_. Ptr . Next ;= NULL; -- set new last node to null 

-- all others 
ELSE 

-- bump to next to node just before the one to be deleted 
FOR I IN 1. .Node_Counter - 2 LOOP 
Prev_Ptr : = Prev_Ptr .Next ; 

END LOOP; 

Prev__Ptr . Next Temp_Ptr . Next ; -- circumvent deleted node 

END IF; 

Dispose (Temp_Ptr) ; -- dispose of deleted node 
Filename_List .Length := Filename_Lis‘; . Length - 1; 

-- bump to next node; increment node counter 
ELSE 

Temp__Ptr := Temp_Ptr .Next ; 

Node_Counter := Node_Counter + 1; 

END IF; 

END LOOP; 

-- done searching list; if the filename was not found raise the 
-- Invalid_Filename exception 
IF NOT Found THEN 

RAISE Invalid_Filename; 

END IF; 

-- allow calling routine to handle the except: ons 
EXCEPTION 

WHEN OTHERS => 

RAISE; 

END Delete_Filename ; 


-- This function searches a filename list for a filename and returns 
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-- a boolean telling whether or not it was found. 

-- Inputs: 

Filename_List - tag/filename list to be searched 
Filename - filename to search for in list 

-- Outputs: 

-- Exceptions: 


FUNCTION Filename_Exists 

(Filename_List : IN Filename_List_Type; 

Filename : IN STRING) RETURN BOOLEAN IS 

-- for counting the number of nodes in the list 
Node_Counter : NATURAL := 1; 

-- temporary pointer used to manipulate tag/ filename list 

Temp_Ptr : File_Node_Access_Type := Filename_List . Node_List ; 

-- boolean used to control search 

Found : BOOLEAN := FALSE; 

BEGIN 


-- initialize 
Found : = FALSE; 

Node_Counter := 1; 

-- examine every node until found or end of list is reached 
WHILE Node_Counter <= Filename_List . Length AND NOT Found LOOP 

-- comparisons are not case sensitive; convert both to upper case 
-- and then compare them 
IF Convert_To_Upper 

(VariabIe_String_Package . 

Text_Of (Temp_Ptr . Filename) ) = Convert_To_Upper (Fi lename) THEN 

Found := TRUE; -- search is done, exit loop 

-- bump to next node; increment node counter 
ELSE 

Temp_Ptr := Temp_Ptr .Next ; 

Node_Counter : = Node_Counter + 1 ; 

END IF; 

END LOOP; 

RETURN Found; 

-- allow calling routine to handle the exceptions 
EXCEPTION 

WHEN OTHERS => 

RAISE; 

END Filename_Exists ; 


-- This function searches a filename list for a file tag and returns 
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-- a boolean telling whether or not it was found. 


-- Inputs: 

Filename_List - tag/ filename list to be searched 
File_Tag - tag to search for in list 

-- Outputs: 

-- Exceptions: 


FUNCTION File_Tag_Exists 

(Filename_List : IN Filename_List_Type; 

Fi le_Tag : IN STRING) RETURN BOOLEAN IS 

-- for counting the number of nodes in the list 
Node_Count er : NATURAL : = l ; 

-- temporary pointer used to manipulate tag/ filename list 
Temp_Ptr : File_Node_Access_Type := Fi lename_List . Node_List ; 

boolean used to control search 
Found : BOOLEAN := FA1.SE; 

BEGIN 


-- initialize 
Found : = FALSE; 

Node_Counter : = 1; 

-- examine every node until found or end of list is reached 
WHILE Node_Counter <= Filename_List . Length AND NOT Found LOOP 

-- comparisons are not case sensitive; convert both to upper case 
-- and then compare them 
IF Convert_To_Upper 

{ Variable_String_Package . 

Text_Of (Temp_Ptr . File_Tag) ) = Convert_To_Upper { File_Tag) THEN 

Found TRUE; -- search is done, euit loop 

-- bump to next node; increment node counter 
ELSE 

Temp_Ptr : = Temp_Ptr . Next ; 

Node_Counter := Node_Counter + 1; 

END IF; 

END LOOP; 

RETURN Found; 

__ allow calling routine to handle the except: ons 
EXCEPTION 

WHEN OTHERS => 

RAISE; 

END File_Tag_Exists ; 


-- This function searches the specified list i or the file tag passed 
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-- to it and returns the file name associated with that tag. The 
-- tag comparisons are NOT case sensitive. 

-- Inputs: 

Fiiename_List - tag/filename list to be searched 
File_Tag - tag to search for in list 

-- Outputs: 

-- Exceptions: 

Invalid_Tag - raised when the input file tag is not found 
in the list 


FUNCTION Get_Filename 

(Filename_List : IN Filename_List_Type; 

File_Tag : IN STRING) RETURN STRING IS 

-- for counting the number of nodes in the list 
Node_Counter : NATURAL := 1; 

-- temporary pointer used to manipulate tag/ filename list 

Temp_Ptr : File_Node__Access_Type := Filename_List . Node_List ; 

-- boolean used to control search 

Found : BOOLEAN := FALSE; 

BEGIN 

-- initialize 
Found : = FALSE ; 

Node_Counter := 1; 

-- examine every node until found or end of list is reached 
WHILE Node_Counter <= Filename_List . Length AND NOT Found LOOP 

-- comparisons are not case sensitive; convert both to upper case 
-- and then compare them 
IF Convert_To_Upper 

( Variable_String_Package . 

Text_Of (Temp_Ptr . File_Tag) ) = Convert_To_Upper (File_Tag) 

Found := TRUE; -- search is done, exit loop 

-- bump to next node; increment node counter 
ELSE 

Temp_Ptr : = Temp_Ptr .Next ; 

Node_Counter := Node_Counter + 1; 

END IF; 

END LOOP; 

-- done searching list; if the tag was found return the filename; 

-- otherwise, raise the Invalid_Tag exception 
IF Found THEN 

RETURN Variable_String_Package . Text_Of (Temp_Ptr . Filename) ; 

ELSE 

RAISE Invalid_Tag; 

END IF; 

-- allow calling routine to handle the exceptions 
EXCEPTION 

WHEN OTHERS => 

RAISE; 


THEN 
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END Get_Filename; 


This function searches the specified list for - the filename passed 
-- to it and returns the file tag associated with that filename. The 
-- filename comparisons are NOT case sensitive. 

-- Inputs: 

Filename_List - tag/filename list to be searched 
Filename - filename to search for in list 

-- Outputs: 

-- Exceptions: 

Invalid_Filename - raised when the input filename is not found 
in the list 


FUNCTION Get_File_Tag 

(Filename_List : IN Filename_List_Type ; 

Filename : IN STRING) RETURN STRING IS 

-- for counting the number of nodes in the list 
Node_Counter : NATURAL 1; 

-- temporary pointer used to manipulate tag/ filename list 
Temp_Ptr : File_Node_Access_Type := Fi lename_List . Node_List ; 

-- boolean used to control search 

Found : BOOLEAN := FALSE; 

BEGIN 

-- initialize 
Found := FALSE; 

Node_Counter : = 1; 

examine every node until found or end of list is reached 
WHILE Node_Counter <= Filename_List . Length AND NOT Found LOOP 

-- comparisons are not case sensitive; convert both to upper case 
-- and then compare them 
IF Convert_To_Upper 

{ Variable_Str ing_Package . 

Text_Of (Temp_Ptr. Filename) ) = Convert_To_Upper (Filename) THEN 

Found := TRUE; -- search is done, exit loop 

-- bump to next node; increment node counter 
ELSE 

Temp_Ptr := Temp_Ptr .Next ; 

Node_Counter := Node_Counter + 1; 

END IF; 

END LOOP; 

-- done searching list; if the filename wa:; found return the file tag; 

-- otherwise, raise the Invalid_Filename exception 
IF Found THEN 

RETURN Variable_String_Package.Text_Of ( r, emp_Ptr .File__Tag) ; 
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ELSE 

RAISE Inval id_Filename; 

END IF; 

-- allow calling routine to handle the exceptions 
EXCEPTION 

WHEN OTHERS => 

RAISE; 

END Get_File_Tag; 


-- This function finds the node specified by the position passed 
-- in and returns the filename at that position. 

-- Inputs: 

Filename_List 
Position 

-- Outputs: 

-- Exceptions: 

Inval id_Posit ion - position does not exist for input list 


- tag/filename list to be searched 

- position in list to return filename from 


FUNCTION Get_Filename 

(Filename_List : IN Filename__List_Type; 

Position : IN Natural) RETURN STRING IS 

-- temporary pointer used to manipulate tag/filename list 
Temp_Ptr : File_Node_Access_Type := Fi lename_List . Node_List ; 

BEGIN 

-- make sure that the postion is valid; if not, raise exception 
IF Position = 0 OR Position > Fiiename_List . Length THEN 
RAISE Inval id_Pos it ion; 

ELSE 

-- traverse list to desired position 
FOR I IN 1 . .Position - 1 LOOP 
Temp_Ptr : - Temp_Ptr .Next ; 

END LOOP; 

-- return the filename at the desired position 

RETURN Variable_String_Package. Text_Of (Temp_Ptr . Filename) ; 

END IF; 

-- allow calling routine to handle the exceptions 
EXCEPTION 

WHEN OTHERS => 

RAISE; 

END Get _Fi rename; 
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This function finds the node specified by the position passed 
--in and returns the file tag at that position. 

-- Inputs: 

Filename_List 
Position 

-- Outputs: 

-- Exceptions: 

Invalid_Position - position does not exist for input list 


- tag/filename list to be searched 

- position in list to return file tag from 


FUNCTION Get_File_Tag 

(Fiiename_List : IN Filename_List_Type; 

Position : IN Natural) RETURN STRING IS 

-- temporary pointer used to manipulate tag/filename list 
Temp_Ptr : File_Node_Access_Type := Filename_List . Node_List ; 

BEGIN 

-- make sure that the postion is valid; if not, raise exception 
IF Position = 0 OR Position > Filename_Lis Length THEN 
RAISE Invalid_Position; 

ELSE 

-- traverse list to desired position 
FOR I IN l..Position - 1 LOOP 
Temp_Ptr : = Temp_Ptr .Next ; 

END LOOP; 

return the file tag at the desired position 
RETURN Variable_String_Package . Text_Of ('?emp_Ptr . File_Tag) ; 

END IF; 

-- allow calling routine to handle the exceptions 
EXCEPTION 

WHEN OTHERS => 

RAISE; 

END Get_File_Tag; 


-- This function searches for the specified filename in the list, and 
-- returns the position in the list of the node which contains it. 

-- Inputs: 

Filename__List - tag/filename list to be searched 
Filename - filename to search for : n list 

-- Outputs: 

-- Exceptions: 

I nv a 1 i d_F i 1 ename - raised when the input filename is not in the 
input list 


FUNCTION Get_Filename_Position 

(Filename_List : IN Filename_I ist_Type; 

Filename : IN STRING) I E TURN NATURAL IS 
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-- for counting the number of nodes in the list and returning 
-- the position at which the input filename is found 
Position : NATURAL 1; 

-- temporary pointer used to manipulate tag/ filename list 
Temp_Ptr : File_Node_Access_Type Filename_List . Node_List ; 

-- boolean used to control search 

Found : BOOLEAN := FALSE; 

BEGIN 

-- initialize 
Found := FALSE; 

Position := 1; 

-- examine every node until found or end of list is reached 
WHILE Position <= Filename_List . Length AND NOT Found LOOP 

-- comparisons are not case sensitive; convert both to upper case 
- - and then compare them 
IF Convert_To__Upper 

{ Variabie_String_Package . 

Text_Of (Temp_Ptr. Filename) ) = Convert_To_Upper (Filename) THEN 

Found := TRUE; -- search is done, exit loop 

-- bump to next node; increment node counter 
ELSE 

Temp_JPtr := Temp_Ptr .Next ; 

Position := Position + 1; 

END IF; 

END LOOP; 

-- done searching list; if the filename was found return the position; 

-- otherwise, raise the Invalid_Filename exception 
IF Found THEN 

RETURN Position; 

ELSE 

RAISE Inval id_Filename; 

END IF; 

-- allow calling routine to handle the exceptions 
EXCEPTION 

WHEN OTHERS => 

RAISE; 

END Get_Filename_Position ; 


-- This function searches for the specified file tag in the list, and 
-- returns the position in the list of the node which contains it. 

-- Inputs: 

Filename_List - tag/filename list to be searched 
File_Tag - file tag to search for in list 

-- Outputs: 
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-- Exceptions: 

Invalid_File_Tag - raised when the inpi t file tag is not in the 
input list 


FUNCTION Get_File_Tag__Posit ion 

{Filename_List : IN Filename, Lis t_Type; 

FiieJTag : IN STRING) RETURN NATURAL IS 

-- for counting the number of nodes in the list and returning 
-- the position at which the input file teg is found 
Position : NATURAL := 1; 

-- temporary pointer used to manipulate teg/ filename list 
Temp_Ptr : File_Node_Access_Type := Fi lename_List . Node_List ; 

-- boolean used to control search 

Found : BOOLEAN := FALSE; 

BEGIN 

-- initialize 
Found FALSE; 

Position 1; 

-- examine every node until found or end of list is reached 
WHILE Position < = Fiiename_List . Length AND NOT Found LOOP 

comparisons are not case sensitive; convert both to upper case 
-- and then compare them 
IF Convert_To_Upper 

( Variable_String_Package . 

Text_Of (Temp_Ptr . File_Tag ) ) = Convert_To_Upper (File_Tag) THEN 

Found := TRUE; -- search is done, exit loop 

-- bump to next node; increment node counter 
ELSE 

Temp_Ptr : = Temp_Ptr . Next ; 

Position := Position + 1; 

END IF; 

END LOOP; 

done searching list; if the file tag was found return the position; 

-- otherwise, raise the Invalid_File_Tag exception 
IF Found THEN 

RETURN Position; 

ELSE 

RAISE Invalid_Tag; 

END IF; 

-- allow calling routine to handle the except .ons 
EXCEPTION 

WHEN OTHERS => 

RAISE; 

END Get_File_Tag_Position; 
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-- This procedure sorts a list. The user has the option to do the 
-- reorder by file tag or filename. The procedure uses a bubble sort 
-- swapping pointers when necessary instead of exchanging file tags and 
-- filenames. 

-- Inputs: 

F i 1 ename_Li s t 
Sort 

-- Outputs: 

Filename_List - tag/filename list to be sorted 
-- Exceptions: 


- tag/filename list to be sorted 

- sort type (by file tag or filename 


PROCEDURE Sort_Filename_List 

(Filename_List : IN OUT Filename_List_Type ; 

Sort : IN List_Sort_Type ) IS 

-- temporary pointers used to manipulate tag/filename list 
Temp_Ptr : File_Node_Access_Type : = Filename_List . Node_List ; 

Prev_Ptr : File_Node_Access_Type := NULL; 

-- local booleans 

No_Exchange : BOOLEAN := TRUE; 

Swap : BOOLEAN := FALSE; 


BEGIN 


LOOP 


-- initially point to front of list on each pass of this outer loop 
Temp_Ptr := Filename_List .Node_Li st ; 

Prev_Ptr := NULL; 

-- initially 
No_Ex change : = TRUE ; 

WHILE Temp_Ptr .Next /= NULL LOOP 

-- check sort type and compare tag or filename at current node 
-- and next node. Swap if necessary. 

Swap : = FALSE ; 

IF Sort = By_File_Tag THEN 

IF Convert_To_Upper 

( Variable_String_Package 

.Text_Of (Temp_Ptr . File_Tag ) ) > 

Convert_To_Upper 

( Variable_String_Package . 

Text_Of ( Temp_Ptr . Next . Fi le_Tag ) ) THEN 

Swap : = TRUE ; 

END IF; 

ELSE 

IF Convert_To_Upper 

(Variable_String_Package . 

Text_Of (Temp„Ptr . Filename) ) > 
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Convert_To_Upper 

{ Variable_String_Package . 

Text_Of (Temp_Ptr .Next .Filename) ) THEN 

Swap := TRUE; 

END IF; 

END IF; 

-- if swap is necessary, just swap pointers 
IF Swap THEN 

-- node to swap is first node 
IF Temp_Ptr = Filename_List .Node_List THEN 
Filename_List .Node_List := Temp_Pt r . Next ; 
Prev_Ptr := Filename__List . Node_List ; 
Temp_Ptr .Next := Temp_Ptr . Next .Next ; 
Prev_Ptr .Next : = Temp_Ptr; 

-- all other nodes 
ELSE 

Prev_Ptr .Next := Temp_Ptr .Next ; 

Temp_Ptr .Next := Temp_Ptr.Next.Next; 
Prev_Ptr .Next .Next : = Temp_Ptr; 

Prev_Ptr : - Prev_Ptr .Next ; 

END IF; 

-- made a swap 
No_Exchange : = FALSE; 

ELSE 

--no swap made; go to next node 
Prev_Ptr := Temp_Ptr ; 

Temp_Pt r : = Temp_Ptr . Next ; 

END IF; 

END LOOP; 

-- list is sorted 
EXIT WHEN No_Exchange; 

END LOOP; 

-- allow calling routine to handle the exceptions 
EXCEPTION 

WHEN OTHERS = > 

RAISE; 

END Sort_Filename_List ; 


END Filename_Manager_Package ; 
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Appendix 3: Constants Package 


-- File Name: CFGCONST.ADS (spec only version) 

-- Organization: NASA - Langley Research Center (LaRC) 

-- Project: LIDAR In-Space Technology Experiment (LITE) 


***************************************************************************** 

-- Name /Number : 

System_Constants (package spec) 

-- Abstract: 

This package spec contains several constants which are used in the 
CFG User Interface software to define color schemes, file name 
extensions and directories, Screen mode constants, and others. It 
has no body . 

-- Acronyms / Abbreviat i ons : 

None 

Dependencies: 

Menu_Package 
Screen_Package 
Keyboa r d_P ac ka ge 

-- Global Objects: 

All 

-- Exceptions: 

None 

-- Machine /Compi ler Dependencies: 


***************************************************************************** 


with Unsigned; 
with Menu_Package; 
with Screen_Package; 
with Keyboard_Package; 


Package Sys t em_C ons t ants Is 


-- This is the main color scheme used in the menus and windows of the 
-- user interface on the Master AT. 

Norma l_Color_Scheme : constant Menu_Package .Color_Scheme_Type := 
(Screen_Package.Blue_Background, -- Background_Color 

Screen_Package. Bright_White_Foreground, -- Foreround_Color 

Screen_Package. Yellow_Foreground, -- Title_Color 

Screen_Package. Yellow_Foreground, -- Border_Color 

Screen_Package. Light_Red_Foreground) ; -- Highlight_Color 

-- This color scheme is used on the Master AT when a menu or window is 
-- ’’grayed out" after the user has made a selection. 
Inactive_Color_Scheme : constant Menu_Package . Color_Scheme_Type := 
(Screen_Package.Blue_Background, -- Background_Color 

Screen_Package .Whit e_Fo reground, -- Foreround_Color 

Screen_Package .Yell ow„F or eg round, -- Title_Color 
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Screen_Package . Whit e_Fo reground, -- Border_Color 

Screen_Package . Black_Foreground) ; -- Highlight_Color 

Warning_C Scheme : CONSTANT Menu_Package . Color _Scheme_Type := 
(Screen_Package . Red_Background, -- Background_Color 

Screen_Package . Bright_White_Foreground, -- Foreround_Color 
Screen_Package . Ye llow_Fo reground, -- Title_Color 

Screen__Package . Yellow_Foreground, -- Border_Color 

Screen_Package. Yellow_Foreground) ; -- Highlight_Color 

Standby _Warning_CScheme : CONSTANT Menu_Package . Color_Scheme_Type := 
(Screen_Package . Magenta_Background, — Background_Color 

Screen_Package . Light_Green_Foreground, -- Foreround_Color 
Screen_Package. Bright_White_Foreground, -- Title_Color 
Screen_Package. Yellow_Foreground, -- Border_Color 

Screen_Package. Yellow_Foreground) ; -- Highlight_Color 


These constants define the size of the screen for anybody that needs 
-- to know these things 

Screen_Mode : CONSTANT Screen_Package . Text_Mode_Type := Screen_Package.Color_80x50; 

Number_of_Columns : CONSTANT Screen_Package . Column_Type := 80; 

Number_Of_Rows : CONSTANT Screen_Package . Row_Type := 50; 


File_Name_Length : CONSTANT := 8; 

Fuil_File_Name_Length : CONSTANT := 12; -- this includes the file extension 


-- 600 bytes in NASCOM block -- 
NASCOM_Block_Length 

Bit_Size 
Nibble_Si ze 
Word_Si ze 

Lookup_Table_l_Minimum_Pressure 
Lookup_Table_l_Maximum_Pressure 
Lookup_Table_2_Minimum_Pressure 
Loo kup_Table_2_Maximum_Pres sure 


CONSTANT 

integer 

:= 600 

CONSTANT 

:= 1; 


CONSTANT 

:= 4; 


CONSTANT 

:= 16; 


CONSTANT 

FLOAT : = 

15.0; 

CONSTANT 

FL DAT : = 

65.0; 

CONSTANT 

FLOAT : = 

5.0; 

CONSTANT 

FLOAT := 

65.0; 


-- maximum number of command words a command block can contain 
Max_Command_Words : CONSTANT : = 2 8; 


-- maximum number of command words in a command block transferred to 
-- the IC via the PGSC 

Max_Via_PGSC_Commana_Words : CONSTANT := 22; 


-- maximum number of words in a single comman 1 block, including header 
-- information words 

Max_Block_Size : CONSTANT := 30; 


S_Key_Array 


IC_S_Key_Array 


No_Fl_Key_Array 
FI 0_Key__Array 


CONSTANT Keyboard_Package . S}jecial_Keys_Array_Type ( 1 . . 3 ) : = 

( Keyboard_Package . Fl_Key , Keyboard_Package . F2_Key , 
Keyboard_Package . F10_Key ) ; 

CONSTANT Keyboard_Package . S; )ecial_Keys_Array_Type (1..4) : = 
( Keyboard_Package . Fl_Key , K- ?yboard_Package . F2_Key , 
Keyboard_Package . F3_Key , K* ?yboard_Package . FI 0_Key ) ; 
CONSTANT Keyboard„Package . S])ecial_Keys_Array_Type (1..2) := 
( Keyboara_Package . F2_Key , Key boar d_Package . F10_Key ) ; 
CONSTANT Keyboard_Package . S]>ecial_Keys_Array_Type ( 1 . . 1 ) : = 
(OTHERS => Keyboard_Package F10_Key) ; 


Extra_Chars 

Blanks 


: CONSTANT STRING 
: CONSTANT STRING (1 .. 80) 


: " <>?/\ !'~!@#$% A &* () " ; 
( 3THERS => 1 ' ) ; 
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-- This is the maximum number of Time Specific Commands that could be in 
--a single LITE command block (if all commands were non-parametric , 

-- time-specific commands, they would be 3 words each, and so at most 9 of 
-- them could fit in a 2 8 -word LITE command block) . 


Max_T S_Cmds _Pe r_B lock 

: CONSTANT 

:= 9; 

Max_TS_Commands 

: CONSTANT 

:= 32; 

C omma nd_Menu_W i d t h 

: CONSTANT 

:= 24; 


-- this offset is added 

to the hot key 

position read in 

from the 

data 

file, so that 

-- all mnemonics in the 

menu are a few 

spaces over from 

the left 

edge 

of the menu 

Menu_0f f set 

: CONSTANT 

: = 3 ; 




Menu_0f f set__String 

: CONSTANT 

STRING ( 1 . . 3 ) : = 

(OTHERS = 

> 1 1 

; 

Max_Mnemonic_Length 

: CONSTANT 

15; 




Descriptor_Length 

: CONSTANT 

o 

it 




Units_String_Max 

: CONSTANT 

:= 5; 





-- Command Code constants for uplink code mode commands 
Byte_IO_Wri te_Command_Code : CONSTANT := 16#50#; 
Word_IO_Wri te_Command_Code : CONSTANT := 16#51#; 
Memory_Write_Command_Code : CONSTANT := 16# 54#; 
Memory_Fill_Command_Code : CONSTANT := 16#56#; 


-- LITE IC null commands 

LITE_IC_Null_Cmd_Fill_Pat tern_High__Byte : CONSTANT := 16#04#; 
LITE_IC_Null_Cmd_Fill_Pattern_Low_Byte : CONSTANT := 16#FF#; 

Reserved : CONSTANT Unsigned. Byte := 0; 

-- row offset for next menu after drawing an inactive box around the 
-- previous menu selection 
Show_Menu_Choice_Of f set : CONSTANT := 5; 

-- there are 28 Memory read strings that can be displayed at one time; this 
-- area of the display is broken down into 28 rows of 45 character strings 
Max_Memory_Reads : CONSTANT POSITIVE := 28; -- up to 28 mem read displayable 

Memory_St r ing_Length : CONSTANT := 45; -- string length 

-- there are 45 10 read strings that can be displayed at one time; this area 
-- of the display is broken down into 9 rows and 5 columns of 9 character 
-- strings 

Max_IO_Rows : CONSTANT POSITIVE := 9; -- max 10 read rows 

Max_I0_Cols : CONSTANT POSITIVE := 5; -- max 10 read cols 

IO_String_Length : CONSTANT POSITIVE := 9; -- individual read string length 

Max_I0_Reads : CONSTANT POSITIVE := Max_I0_Rows * Max_IO_Cols; -- max mem reads 

IC_Command_Frame : CONSTANT ;= 8; 

IC_Memory_Frame : CONSTANT := 10; 

I C_Up 1 i nk_By t e : CONSTANT := 53; 

Byt e_IO__Read_Command_Code : CONSTANT : = 1 6 # 52 # ; 

Word_IO_Read_Command_Code : CONSTANT 16#53#; 

Memory_Read_Command_Code : CONSTANT := 16 #55#; 

PDI_Sync_Pattern : CONSTANT Unsigned .Word := 16#BEEF#; 

-- rain and max screen rows 

Max_Top_Row : CONSTANT Screen_Package . Row_Type := 1; 
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Max_Bottom_Row : CONSTANT Screen_Package . Row_Type : = 49; 

Max_Column : CONSTANT 79 . 

number of rows in the general error window 
Rows_In_Error_Window : CONSTANT := 5; 


user input and title row offsets from top of many prompt windows 
Input_Offset_Row : CONSTANT Screen^Package . Row_Type :=2; 

Ti t le_Of f set_Row : CONSTANT Screen_Package . Row_Type := 2; 

-- bottom row offset from top for many prompt windows 
Bottom_Row_Of f set : CONSTANT Screen_Package . Row_Type := 4; 

-- # of rows in a yes /no box 

Yes__No_Box_Rows : CONSTANT Screen_Package. Row_Type := 6 ; 

Seconds_Per_Day : CONSTANT Integer := 86400; 

Seconds_Per_Hour : CONSTANT Integer := 3600; 


-- These constants define the "boiler plate" fields for the NASCOM shell. They are as 
correct as we can make them right now. We have had difficulty verifying the proper 
current values for many of these fields, and a few are still set to zero because 
--we have not yet been able to find ANY value for them from JSC. They will need to 
-- be updated later. 


CONSTANT 

CONSTANT 

CONSTANT 


NASCOM_Header_Sync_By te_l 
NASCOM_Header_Sync_By te_2 
NASCOM_Header_Sync_By te_3 
Source_Code 
De s t i na t i on_Code 
Block_Sequence_Counter 
Forma t_ID 

User_Header_Source_Circuit_ID 

User_Header_Source_Ci rcui t_Sequence_Number : CONSTANT 
User_Header_Spare_Bit : CONSTANT := 1; 

User_Header_Block_Sequence_Number : CONSTANT 

User_Header_Message_Type : CONSTANT 

User_Header_Destination_Code : CONSTANT := 112; 


= 98; 

- 118; 
= 39; 


CONSTANT 


-- 62h 
-- 7 6h 
-- 27h 
: = 173; 


ADh 


CONSTANT := 56; 
CONSTANT ; = 7 ; 

: CONSTANT 
CONSTANT : = 0 ; 


User_Header_Spare_Bit_l 
User_Header_Spare_Bit_2 
User_Header_Full_Block_Flag 
Use r__Header_Da t a_Leng t h 
NASCOM_Trai ler_Fl 
NASCOM_Trailer_F2 

C ommand_D a t a_ POCC_C omma nd_M e s s a g e _Numbe r 
Command_Data_Payload_Vehicle_ID 
Command_Dat a_Command_Type 
C ommand_Da t a_Or bi t e r_Up 1 i nk_M ode 
Test_Command_Command_Type 


CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 

CONSTANT 


-- 3 8 h 

: = 9; 

:= 15; 

:= 7; 

:= 143; 

-- 70h 
1 ; 

1 ; 

0 ; 

512; 

1 ; 

0 ; 

999; 

0 ; 

1 ; 

0 ; 

0; 


-- 8 Fh 


Olh 


LITE_Command_Header_SFMDM_Source_ID 

LITE_Command_Header_SFMDM_Sync 

LITE_Command_Header_SFMDM_IOM_Type 


CONSTANT 

CONSTANT 

CONSTANT 


13; 

5; 

14; 


-- Dh 


Eh 


LIT E_C omman d_He ade r _S FMDM_C omma nd_ I D 
LIT E_Comman d_He a d e r _S FMDM_ I OM 
LITE_Command_Header_SFMDM_Channel_Number 
L I TE_Command_Header_F ill 
LIT E_C ommand_Wo r d_C ou n t 
LITE_Commana_Footer_Filler 


CONSTANT 

= 3; 

CONSTANT 

= 0 ; 

CONSTANT 

= 0 ; 

CONSTANT 

= 0 ; 

CONSTANT 

= 30 

20NSTANT 

- 0 ; 


DOL_Command_Header_SFMDM_Source_ID 

DOL_Command_Header_SFMDM_Sync 

DOL_Command_Header_SFMDM_IOM_Type 


CONSTANT 

: = 13; 

-- Dh 

CONSTANT 

:= 5; 


CONSTANT 

:= 13; 

-- Dh 
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DOL_C ommand_Heade r_S FMDM_Command_ I D 
DOL_Comrnand_Header_SFMDM_IOM 
DOL_Command_Heade r_SFMDM_Channe l_Number 
DOL_Coiranand_Word_Count 
DOL_Command_Footer_Checksum 

DDCS_Command_Header_SFMDM_Source_ID 

DDC S_Command_Heade r _S FMDM_Sync 

DDCS_Command_Header_SFMDM_IOM_Type 

DDCS_Command_Header_DDCS_Command_ID 

DDCS_Command_Word_Count 

DDC S_Command_Foo t er_F i 1 1 er 


CONSTANT := 
CONSTANT := 
CONSTANT := 
CONSTANT := 
CONSTANT := 

CONSTANT : = 
CONSTANT : = 
CONSTANT := 
CONSTANT : = 
CONSTANT : = 
CONSTANT := 


8 

0 

0 

3 


244; 

-- F4h 

13; 

-- Dh 

5; 


0; 


10; 

--Ah 

8; 


0; 



End System_Constants ; 



-- File Name: CFGCONST.ADS (Function version) 

-- Organization: NASA - Langley Research Center (LaRC) 

-- Project: LIDAR In-Space Technology E>periment (LITE) 


--★★★a************************************************************************* 

- - Name / Number : 

System_Constants (package spec) 

-- Abstract: 

This package spec contains several constarts which are used in the 
CFG User Interface software to define color schemes, file name 
extensions and directories, Screen mode constants, and others. 

-- Acronyms/Abbreviations : 

None 

-- Dependencies: 

Unsigned 

Menu_Package 

Screen_Package 

Keyboard_Package 

-- Global Objects: 

All 

-- Exceptions: 

None 

-- Machine/Compiler Dependencies: 


— **•■** + *****•****★★★★★★★*★*★*★•*****■★*■**** 






with Unsigned; 
with Menu_Package; 
with Screen_Package ; 
with Key boar d_Package; 


Package System_Constants_Package Is 


-- This is the main color scheme used in the nenus and windows of the 
-- user interface on the Master AT. 

Function Normal_Color_Scheme RETURN Menu_Pack age . Color_Scheme_Type ; 

This color scheme is used on the Master AT when a menu or window is 
-- "grayed out" after the user has made a selection. 

Function Inactive_Color_Scheme RETURN Menu_Pa :kage . Color_Scheme_Type; 

This color scheme is used for all CFG warn .ng message and error 
-- message windows 

Function Warning_CScheme RETURN Menu_Package . « :olor_Scheme_Type; 

-- This color scheme is used for the - Emergency Go To Standby" Command Window 
Function Standby_Warning_C Scheme RETURN Menu_ 5 ackage . Color_Scheme_Type; 

-- These constants define the size of the screen for anybody that needs 
-- to know these things 

Function Screen_Mode RETURN Screen_Package . Te;:t_Mode__Type ; 

Function Number_of_Columns RETURN Screen_Pack< ige . Column_Type; 

Function Number_Of_Rows RETURN Screen_Package Row_Type; 
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Function File_Name_Length RETURN Natural; 

Function Full_File_Name_Length RETURN Natural; 

-- 600 bytes in NASCOM block -- 

Function NASCOM_Block_Length RETURN Integer; 

Function Bit_Size RETURN Positive; 

Function Nibble_Size RETURN Positive; 

Function Word_Size RETURN Positive; 

Function Lookup_Table_l_Minimum_Pressure RETURN FLOAT; 

Function Lookup_Table_l_Maximum_Pressure RETURN FLOAT; 

Function Lookup_Table_2_Minimum_Pressure RETURN FLOAT; 

Function Lookup_Table_2_Maximum_Pressure RETURN FLOAT; 

-- maximum number of command words a command block can contain 
Function Max_Command_Words RETURN Positive; 

-- maximum number of command words in a command block transferred to 
-- the IC via the PGSC 

Function Max_Via_PGSC_Command_Words RETURN Positive; 


-- maximum number of words in a single command block, including header 
-- information words 

Function Max_Block_Size RETURN Positive; 


Function S_Key_Array 
Function IC_S_Key_Array 
Function No_Fl_Key_Array 
Function F10_Key_Array 


RETURN Keyboard_Package . Special_Keys_Array_Type ; 
RETURN Keyboard_Package . Special_Keys_Array_Type ; 
RETURN Key boar d_Package . Special_Keys_Array_Type ; 
RETURN Keyboard_Package . Special_Keys_Array__Type ; 


Function Extra_Chars RETURN STRING; 

Function Blanks RETURN STRING; 


-- This is the maximum number of Time Specific Commands that could be in 
-- a single LITE command block (if all commands were non-parametric , 

-- time-specific commands, they would be 3 words each, and so at most 9 of 
-- them could fit in a 28-word LITE command block) . 

Function Max_TS_Cmds_Per_Block RETURN Positive; 

Function Max_TS_Commands RETURN Positive; 

Function Command_Menu_Width RETURN Positive; 

-- this offset is added to the hot key position read in from the data file, so that 
-- all mnemonics in the menu are a few spaces over from the left edge of the menu 
Function Menu_Offset RETURN Natural; 

Function Menu_Of f set_String RETURN STRING; 


Function Max_Mnemonic_Length 
Function Descriptor_Length 
Function Units_String_Max 


RETURN Positive; 
RETURN Positive; 
RETURN Positive; 


-- Command Code constants for uplink code mode commands 
Function Byte_IO_Write_Command_Code RETURN Natural; 
Function Word_IO_Write_Command_Code RETURN Natural; 
Function Memo ry_Write_Command_C ode RETURN Natural; 
Function Memory_Fill_Command_Code RETURN Natural; 
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-- LITE IC null commands 

Function LITE_IC_Null_Cmd_Fill_Pattern_High_E yte RETURN Natural; 

Function LITE_IC_Null_Cmd_Fill_Pattern_Low_B> te RETURN Natural ; 

Function Reserved RETURN Unsigned. Byte; 

-- row offset for next menu after drawing an inactive box around the 
-- previous menu selection 

Function Show_Menu_Choice_Of f set RETURN Natural; 

-- there are 28 Memory read strings that can be displayed at one time; this 
area of the display is broken down into 28 rows of 45 character strings 
Function Max_Memory_Reads RETURN Positive; -- up to 28 mem read display able 
Function Memory _String_Length RETURN Positive; -- string length 


-- there are 45 10 read strings that can be displayed at one time; this area 
-- of the display is broken down into 9 rows and 5 columns of 9 character 
-- strings 

Function Max_I0_Rows RETURN Positive; -- max 10 read rows 

Function Max_IO_Cols RETURN Positive; -- max 10 read cols 

r unction IO — String — Length RETURN Positive; — individual read strinc 

Function Max_IO_Reads RETURN Positive; -- max mem reads 


Funct ion 
Function 
Function 
Function 
Function 
Funct ion 


IC_Command_Frame RETURN 
IC_Memory_Frame RETURN 
IC_Uplink_Byte RETURN 
Byte_IO_Read_Command_Code RETURN 
Word_IO_Read_Command_Code RETURN 
Memory_Read_Command_Code RETURN 


Natural 

Natural 

Natural 

Natural 

Natural 

Natural 


Function PDI_Sync_Pattern 


RETURN Unsigned. Word; 


-- min and max screen rows 
Function Max_Top_Row 
Function Max_Bottom_Row 
Function Max_Column 


RETURN Screen_Package . Row_Type; 
RETURN Screen_P uckage . Row_Type; 
RETURN Screen_P ickage . Column_Type ; 


-- number of rows in the general error window 

Function Rows_In_Error_Window RETURN Screen_Package . Row__Type ; 


user input and title row offsets from top of many prompt windows 
Function Input_Of f setJRow RETURN Screen_Package . Row_Type; 

Function Title_0f f set_Row RETURN Screen_Package . Row_Type; 


-- bottom row offset from top for many prompt windows 
Function Bottom_Row_0f f set RETURN Screen_P. tckage . Row_Type ; 


-- # of rows in a yes /no box 

Function Yes_No_Box_Rows RETURN Screen_Package . Row__Type ; 


Function Seconds_Per_Day 
Function Seconds_Per_Hour 


RETURN Integer; 
RETURN Integer; 


Function 

Function 

Function 

Function 

Function 

Function 

Function 

Function 

Function 


NASCOM_Header_Sync_l 

NASC0M_Header_Sync_2 

NASC0M_Header_Sync_3 

Source_Code 

Dest inat ion_Code 

Block_Sequence_Counter 

Format_ID 

User_Header_Source_Circuit_ID 
User_Header_Source_Circuit_Sequence_I umber 


RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 


length 
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Function User_Header_Spare_Bit 
Function User__Header_Block_Sequence_Number 
Function User_Header_Message_Type 
Function User__Header_Dest inat ion_Code 
Function User_Header_Spare_Bit_l 
Function User_Header_Spare_Bit_2 
Function Use r _H eade r _Fu 1 1 _B 1 o c k_F lag 
Function User_Header_Data_Length 
Function NASCOM_Trailer_Fl 
Function NASC0M_Trailer_F2 

Function Coinman d_Data_POCC_Command_Message_Number 
Function Command_Data_Pay load_Vehic le_ID 
Function Command_Data_Command_Type 
Function Corranand_Data_Orbiter_Uplink_Mode 
Function Test_Command_Command_Type 

Function LITE_Command_Header_SFMDM_Source_ID 
Function LITE_Command_Header_SFMDM_Sync 
Func t i on LI TE_Command_H eade r _S FMDM_ I OM_Typ e 
Funct ion LITE_Command_Header_SFMDM_Command_ID 
Function LITE_Command_Header_SFMDM__IOM 
Function LITE_Coinmand_Header__SFMDM_Channel_Nuinber 
Function LITE_Command_Header_Fill 
Function LITE_Command_Word_Count 
Function LITE_Command_Footer_Filler 

Function DOL_Coramand_Header_SFMDM_Source_ID 
Function DOL_Con\mand_Header_SFMDM_Sync 
Funct ion DOL_Coininand_Header_SFMDM_IOM_Type 
F un c t i on DO L_Command_He ade r_S FMDM_C ommand_ I D 
Function DOL_Command_Header_SFMDM_IOM 
Function DOL_Cominand_Header_SFMDM_Channel_Number 
Function DOL_Command_Word_Count 
Function DOL_Coiranand_Footer_Checksum 

Funct ion DDCS_Command_Header_SFMDM_Source_ID 
Funct ion DDCS_Command_Header_SFMDM_Sync 
Funct ion DDCS_Command_Header_SFMDM_IOM_Type 
Funct ion DDC S_C ommand_Hea de r _DDC S _C omma nd_ I D 
Function DDCS_Conunand_Word_Count 
Function DDCS_Coimnand_Footer_Fi 1 1 er 

End System_Constants_Package ; 


RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer ; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 

RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 

RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 

RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
RETURN Integer; 
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-- File Name: CFGCONST - ADB 

-- Organization: NASA - Langley Research Center (LaRC) 

Project: LIDAR In-Space Technology Experiment (LITE) 


— **********************★*********************.***.****,*. 




- - Name / Numbe r : 


System_Constants_Package 


(package body) 


-- Abstract : 

This package spec contains several constants which are used in the 
CFG User Interface software to define color schemes, file name 
extensions and directories, Screen mode constants, and others. It 
has no body. 


-- Acronyms / Abbr eviat i ons : 
None 


-- Dependencies: 
Unsigned 
Menu_Package 
Screen_Package 
Keyboard_Package 

-- Global Objects: 

All 


-- Exceptions: 

None 

-- Machine/Compiler Dependencies: 

— ****************************************************** 




with Unsigned; 
with Menu_Package ; 
with Screen_Package; 
with Keyboard_Package; 


Package Body System_Constants_Package Is 


- -his is the main color scheme used in the menus and windows of the 
-- user interface on the Master AT. 

Norma l_Color_Scheme_Val : CONSTANT Menu_Packa< re . Color_Scheme_Type : = 
(Screen_Package. Blue_Background, - Background_Color 

Screen_Package .Bright_White Foreground, - Foreround__Color 

Screen_Package . Yellow_Foreground, Title_Color 

Screen_Package . Yellow_Foreground, - Border_Color 

Screen_Package . Light_Red_Fo reground ) ; - Highlight_Color 


This color scheme is used on the Master AT when a menu or window is 
-- "grayed out" after the user has made a selection. 

Inactive_Coior_Scheme_Val : CONSTANT Menu_PacJ :age . Col or_Scheme_Type : = 


(Screen_Package . Blue_Background, 
Screen_Package . White_Foreground, 
Screen_Package . Ye llow_Fo reground, 
Screen_Package . White_Foreground, 
Screen_Package . Black_Foreground) ; 


Background_Color 

Foreround_Color 

Title_Color 

Border_Color 

Highlight_Color 


This color scheme is used for all CFG warning message and error 
-- message windows 
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Warning_CScheme_Val : CONSTANT Menu_Package . Color_Scheme_Type := 
(Screen_Package . Red_Background, -- Background__Color 

Screen_Package. Bright_White_Foreground, -- Foreround_Coior 
Screen_Package . Yellow_Foreground, Title_Color 

Screen_Package . Yellow_Foreground, -- Border_Color 

Screen_Package . Yellow_Foreground) ; -- Highlight_Color 

-- This color scheme is used for the "Emergency Go To Standby" Command Window 

Standby _Warning_CScheme_Val : CONSTANT Menu_Package . Co lor_Scheme_Type 
( Screen_Package . Magenta_J3ackground, -- Background_Color 

Screen_Package . Light_Green__Foreground, -- Foreround_Color 
Screen_Package . Bright_White_Foreground, -- Title_Color 
Screen_Package . Yellow_Foreground, -- Border_Color 

Screen_Package . Yellow_Foreground) ; -- Highlight_Color 

— These constants define the size of the screen for anybody that needs 

-- to know these things 

Scree n_Mode_Val : CONSTANT Screen_Package . Text_Mode_Type := 

Screen_Package . Color_80x50 ; 

Number_of _Columns_Val : CONSTANT Screen_Package . Column_Type := 80; 

Number_Of_Rows_Val : CONSTANT Screen_Package . Row_Type : = 50; 


File_Name__Length_Val : CONSTANT Natural := 8; 

Full_File_Name_Length_Val : CONSTANT Natural := 12; --this includes the file extension 


-- 600 bytes in NASCOM block -- 
NAS COM_B 1 oc k_Leng t h_Va 1 

Bit_Size_Val 

Nibble_Size_Val 

Word_Size_Val 

Lookup_Table_l_Minimum_Pressure_Val 

Lookup_Table_l_Maximum_Pressure_Val 

Lookup_Table_2_Minimum_Pressure_Val 

Lookup_Table_2_Maximum_Pressure_Val 


CONSTANT 

Integer 

= 600 

CONSTANT 

Positive 

: = 1 ; 

CONSTANT 

Positive 

:= 4; 

CONSTANT 

Positive 

:= 16 

CONSTANT 

FLOAT : - 

15.0; 

CONSTANT 

FLOAT : - 

65.0; 

CONSTANT 

FLOAT : = 

5.0; 

CONSTANT 

FLOAT : = 

65.0; 


— maximum number of command words a command block can contain 
Max_Command_Words_Val : CONSTANT Positive := 28; 


-- maximum number of command words in a command block transferred to 
-- the IC via the PGSC 

Max_Via_PGSC_Command_Words_Val : CONSTANT Positive := 22; 


— maximum number of words in a single command block, including header 
-- information words 

Max_B 1 o c k_S i z e_Va 1 : CONSTANT Positive := 30; 


S_Key_Array_Val 


I C_S_Key _Ar r ay_Va 1 


N o_F 1 _Key_Ar r ay _Va 1 
F 1 0 _K ey _A r r ay _V a 1 


CONSTANT Keyboard_Package. Spec ial_Keys_Ar ray _Type (1..3) := 

( Keyboard_Package . Fl_Key , Keyboar d_Package . F2_Key , 
Keyboard_Package . F 1 0_Key ) ; 

CONSTANT Keyboard_Package . Special_Keys_Array_Type { 1 . . 4 ) : = 

( Keyboard_Package . Fl_Key , Keyboard_Package . F2_Key , 
Keyboard_Package . F3_Key , Keyboard_Package. F10_Key ) ; 
CONSTANT Keyboard_Package.Special_Keys_Array_Type (1..2) := 

( Keyboard_Package . F2_Key , Key boar d_Package . F10_Key ) ; 
CONSTANT Keyboard„Package. Special_Keys_Array_Type ( 1 - - 1 ) : = 

(OTHERS => Keyboard_Package . Fl0_Key ) ; 


Extra_Chars_Val 

Blanks_Val 


CONSTANT STRING := " . , <>?/\ ';:[]{}-_=+ t ' ~ S @#$%-&* () ■ 

CONSTANT STRING (1 .. 80) := (OTHERS => 1 1 ) ; 
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-- This is the maximum number of Time Specific Commands that could be in 
-- a single LITE command block (if all commands were non -parametric , 

time-specific commands, they would be 3 words each, and so at most 9 of 
-- them could fit in a 28 -word LITE command block) . 

Max_TS_Cmds_Per_Block_Val : CONSTANT Positive := 9; 

Max_TS_Commands_Val : CONSTANT Positive := 32; 

Command_Menu_Width_Va 1 : CONSTANT Positive := 24; 

-- this offset is added to the hot key position read in from the data file, so that 
-- all mnemonics in the menu are a few spaces over from the left edge of the menu 
Menu_Of f set_Val : CONSTANT Natural := 3; 

Menu_Of f set_String_Val : CONSTANT STRING (L..3) := (OTHERS => 1 * ); 

Max_Mnemonic_Length_Val : CONSTANT Positive := 15; 

Descriptor_Length_Val : CONSTANT Positive := 40; 

Unit s_S t r i ng_Max_ Va 1 : CONSTANT Positive := 5; 

Command Code constants for uplink code mode commands 
By te_IO_Wr i te_Command_Code_VAL : CONSTANT Natural := 16#50#; 
Word_IO_Write_Command_Code_Val : CONSTANT Natural := 16#51#; 
Memory_Write_Command_Code_Val : CONSTANT Natural := 16#54#; 
Memory_Fill_Command_Code_Val : CONSTANT Natural : = 16#56#; 

-- LITE IC null commands 

LITE_IC_Null_Cmd_Fill_Pattern_High_Byte_Val : CONSTANT Natural := 16#04#; 
LITE_JEC_Null_Cmd_Fill_Pattern_Low_Byte_Val : CONSTANT Natural := 16#FF#; 

Reserved_Val : CONSTANT Unsigned. Byte := 0; 

row offset for next menu after drawing an _nactive box around the 
-- previous menu selection 

Show_Menu_Choice_Of fset_Val : CONSTANT Natural := 5; 

-- there are 28 Memory read strings that can be displayed at one time; this 
area of the display is broken down into 28 rows of 45 character strings 
Max_Memory_Reads_Va 1 : CONSTANT Positive := 28; — up to 28 mem read displayable 

Memory_String_Length_Val : CONSTANT Positive := 45; -- string length 

-- there are 45 10 read strings that can be displayed at one time; this area 
of the display is broken down into 9 rows <nd 5 columns of 9 character 
-- strings 

Max_IO_Rows_Val : CONSTANT POSITIVE := 9; -- max 10 read rows 

Max_IO_Cols_Val : CONSTANT POSITIVE := 5; -- max 10 read cols 

IO_String_Length_Val: CONSTANT POSITIVE 9; -- individual read string length 

Max_IO_Reads_Val : CONSTANT POSITIVE := Ma>_I0_Rows * Max_I0_Cols; -- max mem reads 

IC_Command_Frame_Val : CONSTANT Natural := 8; 

I C_Memory _F r ame_V a 1 : CONSTANT Natl ral : = 10; 

I C_Up 1 i nk_By t e_Va 1 : CONSTANT Natl ral := 53; 

Byte_IO_Read_Command_Code_Val : CONSTANT Natl ral := 16#52#; 

Wo r d_ 1 0_R e ad_Comman d_Co de_Va 1 : CONSTANT Nati ral := 16#53#; 

Memory_Read_Command_Code_Val : CONSTANT Nati ral := 16#55#; 

PDI_Sync_Pattern_Val : CONSTANT Unsi gned. Word := 16#BEEF# ; 

-- min and max screen rows 

Max_T op_Ro w_V a 1 : CONSTANT Screen_Pac kage . Row_Type 

Max_Bottom_Row_Val : CONSTANT Screen_Package . Row_Type 

Max_C o 1 umn_V a 1 : CONSTANT Screen_Pac kage . Column_Type 

-- number of rows in the general error window 

Rows_In_Error_Window_Val : CONSTANT Screen_Pac kage . Row_Type := 5; 


= 1 ; 

= 49; 
= 79; 
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-- user input and title row offsets from top of many prompt windows 
Input_Of fset_Row_Val : CONSTANT Screen_Package . Row_Type := 2; 

Title_Of f set_Row„Val : CONSTANT Screen_Package . Row_Type := 2; 

-- bottom row offset from top for many prompt windows 

Bottom_Row_Of f set_Val : CONSTANT Screen_Package . Row_Type := 4; 


-- # of rows in a yes /no box 

Yes_No_Box_Rows_Val : CONSTANT Screen_Package . Row_Type 


Seconds_Per_Day_Val 

Seconds_Per_Hour_Val 


CONSTANT Integer := 86400; 
CONSTANT Integer : = 3600; 


6 ; 


NASCOM_Header„Sync_Byte_l_Val 

NASCOM_Header_Sync_Byte_2_Val 

NAS COM_He aaer _Sync_By t e_3 _Va 1 

S ou r c e_Co de_V a 1 

Destinati on_Code_Va 1 

Bloc k_S equenc e_Coun t e r_Va 1 

Format_ID_Val 

User_Header_Source_Circuit_ID_Val 

User_Header_Source_Circuit_Sequence_Number_Val 

User_Header_Spare_Bit_Val 

User_Header_Block_Sequence_Number_Val 

Use r_Header_Mes sage_Type_Va 1 

Use r_Header_Des t i na t i on_Code_Va 1 

User_Header_Spare_Bit_l_Val 

User_Header_Spare_Bit_2_Val 

User_Header_Full_Block_Flag_Val 

User_Header_Data_Length_Val 

NAS COM_Tr a i 1 e r _F 1 _Va 1 

NAS COM_Tr a i ler_F2_Val 

C omma nd_D a t a_POCC_C omma nd_M e s s a g e_N umbe r_V a 1 
Command_Data_Payload_Vehicle_ID_Val 
C omma nd_D a t a_Command_Ty p e_Va 1 
C ommand_Dat a_Or bi t er_Up 1 ink_Mode_Va 1 
Test_Command_Command_Type_Val 


CONSTANT Integer := 
CONSTANT Integer := 
CONSTANT Integer := 
CONSTANT Integer : = 
CONSTANT Integer : = 
CONSTANT Integer : = 
CONSTANT Integer : = 
CONSTANT Integer : = 
CONSTANT Integer := 
CONSTANT Integer : = 
CONSTANT Integer : = 
CONSTANT Integer := 
CONSTANT Integer := 
CONSTANT Integer := 
CONSTANT Integer : = 
CONSTANT Integer := 
CONSTANT Integer : = 
CONSTANT Integer := 
CONSTANT Integer : = 
CONSTANT Integer : = 
CONSTANT Integer : = 
CONSTANT Integer : = 
CONSTANT Integer : - 
CONSTANT Integer : = 


LIT E_C ommand_He ade r _S FMDM_S ou r c e__I D_V a 1 
LITE_Command_Header_SFMDM_Sync_Val 
LIT E_Comman d_He ade r _S FMDM_I OM__Ty p e_Va 1 
L ITE_Command_Header_S FMDM_Command_I D_Va 1 
LIT E_Command_He ade r _S FMDM_I OM_V a 1 
L I TE_Command_Heade r _S FMDM_Channe l__Numbe r_Va 1 
L ITE_Command_Header__F i 1 l_Val 
LIT E_Command_Wo r d_C ount _V a 1 
LITE_Command_Footer_Filler_Val 


CONSTANT Integer : = 
CONSTANT Integer : = 
CONSTANT Integer := 
CONSTANT Integer := 
CONSTANT Integer := 
CONSTANT Integer := 
CONSTANT Integer ;= 
CONSTANT Integer := 
CONSTANT Integer : = 


DOL_Command_Header_SFMDM_Source_ID_Val 

DOL_C ommand_Hea de r_S FMDM_Sy nc _Va 1 

DOL_C ommand_Heade r_SFMDM_IOM_Type_V a 1 

DOL_C ommand_Hea de r_SFMDM_Coramand_I D_Va 1 

DOL_Command_Header_SFMDM_IOM_Val 

DOL_C omma nd_H e a de r_ S FMDM_Ch anne 1 _Number _Va 1 

DOL_Command_Word_Count_Va 1 

DOL_Comma nd_F o o t e r _Ch e c ks um_V a 1 


CONSTANT Integer := 
CONSTANT Integer : = 
CONSTANT Integer : = 
CONSTANT Integer : = 
CONSTANT Integer : = 
CONSTANT Integer : = 
CONSTANT Integer := 
CONSTANT Integer := 


DDC S_Command_Heade r _S FMDM_S ou r c e_ I D_V a 1 
DDC S_Command_Heade r _S FMDM_Sy nc_Va 1 
DDC S_Command_Heade r _S FMDM_I OM_Type_Va 1 
DDCS_Command_Header_DDCS_Command_ID_Val 
D DC S_Command_Wo r d_C oun t _Val 
DDC S_Command_Foot er_F i 1 1 e r_Va 1 


CONSTANT Integer := 
CONSTANT Integer : = 
CONSTANT Integer := 
CONSTANT Integer := 
CONSTANT Integer : = 
CONSTANT Integer ; = 


98; - 

118; - 
39; - 

173; - 
56; - 

7; 

9; 

255; 

15; 

1; 

7; 

143; - 
112 ; - 
1; 

1? 

0 ; 

512; 

1; 

0 ; 

999; 
55; - 

1; 

4; 

0 ; 

13 ; 

5; 

14; 

3; 

0 ; 

0 ; 

0 ; 

30; 

0 ; 

13; 

5; 

13; 

8 ; 

0 ; 

0 ; 

3; 

244; 

13; 

5; 

0 ; 

10 ; - 
8 ; 

0 ; 


- 62h 

- 7 6h 

- 27h 

- ADh 

- 38h 


- 8Fh 

- 70h 


- 37h 

- Olh 

- 04h 

- Oh 

-- Dh 
-- Eh 


-- Dh 
-- Dh 


-- F4h 
-- Dh 


- Ah 
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-- "constant" functions 


First, some user interface constants, starting with.. . 
-- color schemes 


This is the mam color scheme used m the menus and windows of the 
-- user interface on the Master AT. 

Function Norma l_Col or _Scheme RETURN Menu_Pack age . Colo r_Scheme_Type IS 
BEGIN 

RETURN Normal_Coior_Scheme_Val ; 

END Normal_Coior_Scheme; 

This color scheme is used on the Master AT when a menu or window is 
-- "grayed out" after the user has made a selection. 

Function Inactive_Color_Scheme RETURN Menu_Package . Color_Scheme Type IS 
BEGIN 

RETURN Inact ive_Color_Scheme_Val ; 

END Inact ive_Color_Scheme ; 

'I'his color scheme is used for all CFG warning message and error 
-- message windows 

Function Warning_CScheme RETURN Menu_Package . Color_SchemeJType IS 
BEGIN 

RETURN Warning_CScheme_Val ; 

END Warning_CScheme ; 

This color scheme is used for the "Emergency Go To Standby" Command Window 
Function StancLby_Warning_CScheme RETURN Menu_Package . CoIor_Scheme_Type IS 
BEGIN 

RETURN Standby_Warning__CScheme_Val ; 

END Standby_Warning_CScheme ; 


... next, some screen locations and important columns and rows: 


xhese constants define the size of the serf en for anybody that needs 
-- to know these things 


Function Screen__Mode RETURN Screen_Package . Text_Mode_Type IS 
BEGIN 

RETURN Screen_Mode_Val ; 

END Scr een_Mode ; 

Function Number_of_Columns RETURN Screen_Packc ge . Column_Type IS 
BEGIN 

RETURN Number_of_Columns_VaI ; 

END Number_of ^Columns ; 

Function Number_Of_Rows RETURN Screen_Package . Row_Type IS 
BEGIN 
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RETURN Number_Of _Rows_Val ; 
END Number_Of _Rows ; 


-- min and max screen rows 

Function Max_Top_Row RETURN Screen_Package . Row_Type IS 
BEGIN 

RETURN Max_T op_Ro w_V a 1 ; 

END Max_Top_Row; 

Function Max_Bottom_Row RETURN Screen_Package . Row_Type IS 
BEGIN 

RETURN Max_Bottom_Row_Val ; 

END Max_Bottom_Row; 

Function Max_Column RETURN Screen_Package . Column__Type IS 
BEGIN 

RETURN Max_Column_Val; 

END Max_Coiumn; 

-- number of rows in the general error window 

Function Rows_In_Error_Window RETURN Screen_Package . Row_Type IS 
BEGIN 

RETURN Rows_In_Error_Window_Val ; 

END Rows_In_Error__Window; 

-- user input and title row offsets from top of many prompt windows 

Function Input_Of f set_Row RETURN Sc reen_Package . Row_Type IS 

BEGIN 

RETURN Input_Of fset_Row_Val; 

END Input_Of f set_Row; 

Function Title_Of f set_Row RETURN Screen_Package . Row_Type IS 
BEGIN 

RETURN Title_Offset_Row_Val? 

END Title_Of f set_Row; 

-- bottom row offset from top for many prompt windows 
Function Bottom_Row_Of f set RETURN Screen_Package . RowJType IS 
BEGIN 

RETURN Bottom_Row_Of fset_Val; 

END Bottom_Row_Of f set ; 

-- # of rows in a yes /no box 

Function Yes_No_Box_Rows RETURN Screen_Package . Row_Type IS 
BEGIN 

RETURN Yes_No_Box_Rows_Val ; 

END Yes_No_Box_Rows ; 

-- row offset for next menu after drawing an inactive box around the 
-- previous menu selection 

Function Show_Menu_Choice_Of f set RETURN Natural IS 
BEGIN 

RETURN Show_Menu_Choice_Of f set_Val ; 

END Show_Menu_Cho i c e_Of f s e t ; 

Function Command_Menu_Width RETURN Positive IS 
BEGIN 

RETURN Command_Menu_Width_Val; 

END Command_Menu_Width; 
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-- ... next , some keyboard arrays of special ke^s to be used by the user: 


Function S_Key_Array RETURN Keyboard_Package . Special_Keys_Array_Type IS 
BEGIN 

RETURN S_Key_Array_Val ; 

END S_Key_Array; 

Function IC_S_Key_Array RETURN Keyboard_Package . Special_Keys_Array_Type IS 
BEGIN 

RETURN IC_S_Key_Array_Val ; 

END IC_S_Key_Array ; 

Function No_Fl_Key_Array RETURN Keyboard_Package . Special_Keys_Array_Type IS 
BEGIN 

RETURN No_Fl_Key_Array_Val ; 

END N o_F 1 _K ey _A r r ay ; 

Function F10_Key_Array RETURN Keyboard_Package . Special_Keys_Array__Type IS 
BEGIN 

RETURN FlO_Key_Array_Vai; 

End F10_Key_Array ; 


-- ... and these are some general-purpose constants used in the user interface: 


Function Extra_Chars RETURN STRING IS 
BEGIN 

RETURN Extra_Chars_Val ; 

END Extra_Chars; 

Function Blanks RETURN STRING IS 
BEGIN 

RETURN B 1 a nk s_Va 1 ; 

END Blanks; 

this offset is added to the hot key position read in from the data file, so that 
-- all mnemonics in the menu are a few spaces over from the left edge of the menu 
Function Menu__Offset RETURN Natural IS 
BEGIN 

RETURN Menu_Of f set_Val ; 

END Menu_0 f f s e t ; 

Function Menu_Of f set_String RETURN STRING IS 
BEGIN 

RETURN Menu_Of f set_String_Val ; 

END Menu_Of f set_String; 

Function Max_Mnemonic_Length RETURN Positive IS 
BEGIN 

RETURN Max_Mnemonic_Length_Val ; 

END Max_Mnemoni c_Length ; 

Function Descriptor_Length RETURN Positive IS 
BEGIN 

RETURN Descriptor_Length_Val ; 

END Descriptor_Length; 

Function Units_St ring_Max RETURN Positive IS 
BEGIN 

RETURN Units_String_Max_Val ; 
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END Units_String_Max; 

-- maximum number of command words a command block can contain 

Function Max_Command_Words RETURN Positive IS 

BEGIN 

RETURN Max_Command_Words_Val ; 

END Max_Command_Words ; 

-- maximum number of command words in a command block transferred to 
-- the IC via the PGSC 

Function Max_Via_PGSC_Command_Words RETURN Positive IS 
BEGIN 

RETURN Max_V i a_PGSC_Command_Wo rds_Va 1 ; 

END Max_Via_PGSC_Command_Words; 

-- maximum number of words in a single command block, including header 
— information words 

Function Max_Block_Size RETURN Positive IS 
BEGIN 

RETURN Max_Block_Size_Val; 

END Max_Block_Size; 

-- This is the maximum number of Time Specific Commands that could be in 
-- a single LITE command block {if all commands were non-parametric , 

-- time-specific commands, they would be 3 words each, and so at most 9 of 
-- them could fit in a 2 8 -word LITE command block) . 

Function Max_TS_Cmds_Per_Block RETURN Positive IS 
BEGIN 

RETURN Max_TS_Cmds_Per_Block_Val ; 

END Max_TS_Cmds_Per_Block; 

Function Max_TS_Commands RETURN Positive IS 
BEGIN 

RETURN Max_TS_Commands_Val ; 

END Max_TS_Commands ; 


-- Now, a bunch of constants related to Uplink Code Mode: 


-- Command Code constants for uplink code mode commands 
Function By te_IO_Write_Command_Code RETURN Natural IS 
BEGIN 

RETURN Byt e_IO_Wri te_Command_Code_Val ; 

END Byte_IO_Write_Command_Code; 

Function Word_IO_Write_Command_Code RETURN Natural IS 
BEGIN 

RETURN Word_IO_Write_Command_Code_Val ; 

END Word_IO_Write_Command_Coae; 

Function Byte_IO_Read_Command_Code RETURN Natural IS 
BEGIN 

RETURN Byte_IO_Read_Command_Code_Val ; 

END Byte_IO_Read_Command_Code; 

Function Word_IO_Read_Command_Code RETURN Natural IS 
BEGIN 

RETURN Word_IO_Read_Command_Code_Val ; 

END Word_IO_Read_Command_Code ; 

Function Memo ry_Write_Command_C ode RETURN Natural IS 
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BEGIN 

RETURN Memory_Write_Command_Code_Val ; 

END Memory_Wr i t e_Command_Code ; 

Function Memory_Read_Command_Code RETURN Natural IS 
BEGIN 

RETURN Memory _Read_Command_Code_Val ; 

END Memory_Read_Command_Code ; 

Function Memory_Fill_Command_Code RETURN Natural IS 
BEGIN 

RETURN Memory_Fi ll_Command_Code_Val ; 

END Memory_Fill_Command_Code; 

-- there are 28 Memory read strings that can be displayed at one time; this 
-- area of the display is broken down into 28 rows of 45 character strings 
Function Max_Memory_Reads RETURN Positive IS 
BEGIN 

RETURN Max_Memory_Reads_Val ; 

END Max_Memory_Reads ; 

Function Memory_String_Length RETURN Positive IS 
BEGIN 

RETURN Memory_String_Length__Val ; 

END Memory_String_Length; 

-- there are 45 IO read strings that can be displayed at one time; this area 
-- of the display is broken down into 9 rows and 5 columns of 9 character 
-- strings 

Function Max_IO_Rows RETURN Positive IS 
BEGIN 

RETURN Max__IO_Rows_VaI ; 

END Max_IO_Rows ; 

Function Max_IO_Cols RETURN Positive IS 
BEGIN 

RETURN Max_IO_Cols_Val ; 

END Max_IO_Cols; 

Function IO_String_Length RETURN Positive IS 
BEGIN 

RETURN IO_String_Length_Val ; 

END IO_String_Length; 

Function Max_IO_Reads RETURN Positive IS 
BEGIN 

RETURN Max_IO_Reads_Val ; 

END Max_IO_Reads ; 

Function IC_Command_Frame RETURN Natural IS 
BEGIN 

RETURN IC_Command_Frame_Val ; 

END IC_Command_Frame; 

Function IC_Memory_Frame RETURN Natural IS 
BEGIN 

RETURN IC_Memory_Frame_Val ; 

END IC_Memory_Frame ; 

Function IC_Uplink_Byte RETURN Natural IS 
BEGIN 

RETURN I C_Up 1 i nk_By t e_Va 1 ; 
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END I C_Up 1 i nk_By t e ; 


-- these are used to compute the parameter for lookup table commands 


Function Lookup_Table_l_Minimum_Pressure RETURN FLOAT IS 
BEGIN 

RETURN Lookup_Table_l_Minimum_Pressure_Val ; 

END Loo kup_Table_l_Minimum_Pres sure ; 

Function Lookup_Table_l_Maximum_Pressure RETURN FLOAT IS 
BEGIN 

RETURN Lookup_Table_l_Maximum_Pressure_Val ; 

END Lookup_Tabl e_l_Maximum_Pres sure ; 

Function Lookup_Table_2_Minimum_Pressure RETURN FLOAT IS 
BEGIN 

RETURN Lookup_Table__2_Minimum_Pressure_Val ; 

END Lookup_Table_2_Minimum_Pressure ; 

Function Lookup_Table_2_Maximum_Pressure RETURN FLOAT IS 
BEGIN 

RETURN Lookup_Table_2_Maximum_Pressure_Val ; 

END Lookup_Table_2_Maximum_Pressure ; 


-- some useful general purpose constants: 


Function Bit_Size RETURN Positive IS 
BEGIN 

RETURN Bit_Size_Val; 

END Bit_Size; 

Function Nibble_Size RETURN Positive IS 
BEGIN 

RETURN Nibble_Size_Val ; 

END Nibble_Size; 

Function Word_Size RETURN Positive IS 
BEGIN 

RETURN Word_Si ze_Val ; 

END Word_Size; 

Function File_Name_Length RETURN Natural IS 
BEGIN 

RETURN F i 1 e_Name_L eng t h_Va 1 ; 

END File_Name_Length; 

Function Full_File_Name_Length RETURN Natural IS 
BEGIN 

RETURN Full_File_Name_Length_Val ; 

END Full_File_Name_Length; 

Function Seconds_Per_Day RETURN Integer IS 
BEGIN 

RETURN Seconds_Per_Day„Val ; 

END Seconds_Per_Day ; 

Function Seconds_Per_Hour RETURN Integer IS 
BEGIN 
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RETURN Seconds_Per_Hour_Val ; 
END Seconds_Per_Hour ; 


-- constants required to build the NASCOM block: 


Function PDI_Sync_Pattern RETURN Unsigned . Word IS 
BEGIN 

RETURN PDI_Sync_Pattern_Val; 

END PDI_Sync_Pattern; 

-- 600 bytes in NASCOM block -- 

Function NASCOM_Block_Length RETURN Integer 13 

BEGIN 

RETURN NASCOM_Block_Length_Val ; 

END NASCOM_Block_Length; 

Function NASCOM_Header_Sync_l RETURN Integer IS 
BEGIN 

RETURN NASCOM_Header_Sync_Byte_l_Val ; 

END NASCOM_Header_Sync__l ; 

Function NASCOM_Header__Sync_2 RETURN Integer IS 
BEGIN 

RETURN NASCOM_Header_Sync_Byte_2_Val ; 

END NASCOM_Header_Sync_2 ; 

Function NASCOM_Header_Sync_3 RETURN Integer IS 
BEGIN 

RETURN NASCOM_Header_Sync_By te_3_Val ; 

END NASCOM_Header_Sync_3 ; 

Function Source_Code RETURN Integer IS 
BEGIN 

RETURN Source_Code_Val ; 

END Source_Code; 

Function Destinat ion_Code RETURN Integer IS 
BEGIN 

RETURN Destination_Code_Val ; 

END Dest inat ion_Code; 

Function Block_Sequence_Counter RETURN Integer IS 
BEGIN 

RETURN Block_Sequence_Counter_Val ; 

END Block_Sequence_Counter ; 

Function Format_ID RETURN Integer IS 
BEGIN 

RETURN Format_ID_Val ; 

END Format_ID; 

Function User_Header_Source_Circuit_ID RETURN Integer IS 
BEGIN 

RETURN User_Header_Source_Circui t_ID_Val ; 

END User_Heaaer_Source_Circui t_ID ; 

Function User_Header_Source_Circuit_Sequence_r umber RETURN Integer IS 
BEGIN 

RETURN User_Header_Source_Circuit_Sequence_ Number_Val ; 

END User_Header_Source_Circuit_Sequence_Numbe 2 ; 
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Function User_Header_Spare_Bit RETURN Integer IS 
BEGIN 

RETURN User_Header_Spare_Bit_Val ; 

END User_Header_Spare_Bit ; 

Function User_Header_Block_Sequence_Number RETURN Integer IS 
BEGIN 

RETURN User_Header_Block_Sequence_Number_Val ; 

END User_Header_Block_Sequence_Number ; 

Function User_Header_Message_Type RETURN Integer IS 
BEGIN 

RETURN User_Header_Message_Type_Val ; 

END User_Header_Message_Type; 

Function T Jser_Header_Destinat ion_Code RETURN Integer IS 
BEGIN 

RETURN User_Header_Destination_Code_Val ; 

END User_Header_Destination_Code; 

Function User_Header_Spare_Bi t_l RETURN Integer IS 
BEGIN 

RETURN User_Header_Spare_Bit_l_Val ; 

END User_Header_Spare_Bit_l ; 

Function User_Header_Spare_Bit_2 RETURN Integer IS 
BEGIN 

RETURN User_Header_Spare_Bit_2_Val ; 

END U se r_Header _Spa r e__B i t_2 ; 

Function User_Header_Full__Block_Flag RETURN Integer IS 
BEGIN 

RETURN User_Header_Full_Block_Flag_Val ; 

END User_Header_Full_Biock_Flag ; 

Function User_Header_Data_Length RETURN Integer IS 
BEGIN 

RETURN User_Header_Data_Length_Val ; 

END User_Header_Data_Length; 

Function NASCOM_Trailer_Fl RETURN Integer IS 
BEGIN 

RETURN NASCOM_Trailer_Fl_Val ; 

END NASCOM_Trailer_Fl; 

Function NASCOM_Trailer_F2 RETURN Integer IS 
BEGIN 

RETURN NASCOM_Trailer_F2_Val; 

END NASCOM_Trailer_F2 ; 

Function Coirmand_Data_POCC_Conunand_Message_Nuinber RETURN Integer IS 
BEGIN 

RETURN Command_Data_POCC_Command_Message_Number_Val ; 

END Command_Data_POCC_Command_Message_Number ; 

Function Command_Data_Payload_Vehicle_ID RETURN Integer IS 
BEGIN 

RETURN Command_Data_Payload_Vehicle_ID_Val ; 

END Command_Dat a_Pay 1 oad_Vehi c 1 e_I D ; 

Function Coiranand_Data_Cominand_Type RETURN Integer IS 
BEGIN 

RETURN Command_Data_Conunand_Type_Val ; 
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END C ommand_Dat a_Command_Type ; 

Function Command_Data_Orbiter_Uplink_Mode RETURN Integer IS 
BEGIN 

RETURN Command_Data_Orbiter_Uplink_Mode_Ve 1 ; 

END Command_Data_Orbi ter_Upiink_Mode ; 

Function Test_Command_Cominand_Type RETURN Integer IS 
BEGIN 

RETURN Test_Coiranand_Coiranand_Type_Val ; 

END Test_Command_Coitmand_Type ; 


constants required to fill the LITE commadn block header and footer 


Function LITE_Command_Header_SFMDM_Source_ID RETURN Integer IS 
BEGIN 

RETURN LITE_Connmand_Header_SFMDM_Source_IE_Val ; 

END LITE_Coirimand_Header_SFMDM_Source_ID ; 

Function LITE_Command_Header_SFMDM_Sync RETURN Integer IS 
BEGIN 

RETURN LIT E_C ommand_Header_S FMDM_Sy nc_Va 1 ; 

END L ITE_Conunand_Header_SFMDM_Sync ; 

Function LITE_Command_Header_SFMDM_IOM_Type RETURN Integer IS 
BEGIN 

RETURN LITE_Coirimand_Header_SFMDM_IOM_Type_7al ; 

END LITE_Conmiand_Header_SFMDM__IOM__Type ; 

Function LITE_Command_Header_SFMDM_Command_ID RETURN Integer IS 
BEGIN 

RETURN LITE_Command_Header_SFMDM_Command_I ,I_Va 1 ; 

END LITE_Conunand_Header_SFMDM_Command_ID; 

Function LITE_Command_Header_SFMDM_IOM RETURN Integer IS 
BEGIN 

RETURN LITE_Coitmand_Header_SFMDM_IOM_Val ; 

END LITE_Command_Header_SFMDM_IOM ; 

Function LITE_Command_Header_SFMDM_Channel_Nu: iber RETURN Integer IS 
BEGIN 

RETURN LITE_Command_Header_SFMDM_Channel_N imber_Val ; 

END LITE_Coimand_Header_SFMDM_Channel_Number ; 

Function LITE_Command_Header_Fill RETURN Integer IS 
BEGIN 

RETURN LITE_Coiranand_Header_Fill_Val ; 

END LITE_Command_Header_FilI; 

Function LITE_Cornmand_Word_Count RETURN Integer IS 
BEGIN 

RETURN LITE_Coimnand_Word__Count_Val ; 

END LITE_Command_Word_Count ; 

Function LITE_Coiranand_Footer_Filler RETURN Integer IS 
BEGIN 

RETURN LITE_Corranand_Footer_Filler_Val ; 

END LITE_Command_Footer_Filler ; 

Function Reserved RETURN Unsigned . Byte IS 
BEGIN 
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RETURN Reserved_Val ; 

END Reserved; 

-- LITE IC null commands 

Function LITE_IC_Null_Cmd_Fill_Pattern_High_Byte RETURN Natural IS 
BEGIN 

RETURN LITE_IC_Null_Cmd_Fill_Pattern_High_Byte_Val ; 

END LITE_IC_Null_Cmd_Fill_Pattern_High_Byte; 

Function LITE_IC_Nuil_Cmd_Fill_Pattern„Low_Byte RETURN Natural IS 
BEGIN 

RETURN LITE_IC_Null_Cmd_Fill_Pattern_Low_Byte_Val; 

END L I T E_ I C_N u 1 1 _Cmd_F i 1 1 _P a 1 1 e r n_Lo w_By t e ; 


-- constants used to configure and send DOL commands in a NASCOM block 


Function DOL_Command_Header_SFMDM_Source_ID RETURN Integer IS 
BEGIN 

RETURN DOL_Command_Header_SFMDM_Source__ID_Val ; 

END DOL_Command_Header_SFMDM_Source_ID ; 

Function DOL_Command_Header_SFMDM_Sync RETURN Integer IS 
BEGIN 

RETURN DOL_Command_Header_SFMDM_Sync_Val ; 

END DOL_Commana_Header_SFMDM_Sync ; 

Function DOL_Command_Header_SFMDM_IOM_Type RETURN Integer IS 
BEGIN 

RETURN DOL_Command_Header_SFMDM_IOM_Type_Val ; 

END DOL_Command_Header_SFMDM_IOM_Type ; 

Function DOL_Command_Header_SFMDM_Command_ID RETURN Integer IS 
BEGIN 

RETURN DOL_Command_Header_SFMDM_Command_ID__Val ; 

END DOL_Command_Header_SFMDM_Command_ID ; 

Function DOL_Command_Header_SFMDM_IOM RETURN Integer IS 
BEGIN 

RETURN DOL_Command_Header_SFMDM_IOM_Val ; 

END DOL_Command_Header_SFMDM_IOM; 

Function DOL_Command_Header_SFMDM_Channel_Number RETURN Integer IS 
BEGIN 

RETURN DOL_Command_Header_SFMDM_Channel_Number_Vai ; 

END DOL_Command_Header_SFMDM_Channel_Number ; 

Function DOL_Command_Word_Count RETURN Integer IS 
BEGIN 

RETURN DOL_C ommand_Wor d_C oun t _V a 1 ; 

END DOL_Command_Word_Count ; 

Function DOL_Command_Footer_Checksum RETURN Integer IS 
BEGIN 

RETURN DOL_Command_Footer_Checksum_Val ; 

END DOL_Command_Footer_Checksum; 


-- constants used to configure and send DDCS commands in a NASCOM block 
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Function DDCS_Com2nand_Header_SFMDM_Source_ID RETURN Integer IS 
BEGIN 

RETURN DDCS_Command_Header_SFMDM_Source_IE_Val ; 

END D DC S_Command_He ade r _S FMDM_S ou r c e_I D ; 

Function DDCS_Command_Header_SFMDM_Sync RETURN Integer IS 
BEGIN 

RETURN DDCS_Command_Header_SFMDM_Sync_Val ; 

END DDCS_Command_Header_S FMDM_Sync ; 

Function DDCS_Coimand_Header_SFMDM_IOM_Type RETURN Integer IS 
BEGIN 

RETURN DDCS_Cornmand_Header_SFMDM_IOM_Type_Val ; 

END DDCS_Command_Header_SFMDM„IOM_Type ; 

Function DDCS_Command_Header_DDCS_Coininand_ID RETURN Integer IS 
BEGIN 

RETURN DDCS_Command_Header_DDCS_Command_ID_Val ; 

END DDCS_Command_Header_DDCS_Command_ID ; 

Function DDCS_Command_Word_Count RETURN Integer IS 
BEGIN 

RETURN DDCS_Command_Word_Count_Val ; 

END DDCS_Coinmand_Word_Count ; 

Function DDCS_Command_Footer_Filler RETURN Integer IS 
BEGIN 

RETURN DDCS_Command_Footer_Filler_Val ; 

END DDCS_Command_Footer_Filler ; 

End System_Constants_Package ; 
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CFGCONST . INI 

NASA - Langley Research Center (LaRC) 

LIDAR In-Space Technology Experiment (LITE) 


-- File Name: 

-- Organization: 
-- Project: 


__***************************************************************************** 

-- Name /Number: 

CFG System Constants (initialization file) 

-- Abstract: 

This file contains the values of all of the constants which are accessed 
— through the System_Constants_Package . They are read in at startup by the 
Initial ize_System_Constants procedure. 

-- Acronyms /Abbreviat i ons : 

None 

-- Dependencies: 

None 

-- Global Objects: 

None 


-- Exceptions: 

None 

-- Machine /Compiler Dependencies: 
None 




********************************** 


************************************ 


-- Normal Color Scheme 
[ Blue_Background] 

[ Bright_White_Foreground] 
[ Yel low_Foreground] 

[ Yel low„Fo re ground] 

[ Light_Red_Foreground] 

-- Inact ive_Color_Scheme 
[Blue_Background] 

[ Whi te_Foreground] 

[Yel low_Foreground] 

[Whi te_Foreground] 

[ Black_Foreground] 

-- Warning Color Scheme 
[ Red_Background] 

[ Bright_White_Foreground] 
[Yel low_Foreground ] 

[Yel low_Foreground] 

[Yel low_Foreground] 


-- Background_Color 
-- Foreround_Color 
-- Title_Color 
-- Border_Color 
-- Highl ight_Color 

-- Background_Color 
-- Foreround_Color 
-- Title_Color 
-- Border_Color 
-- Highl ight_Color 


-- Background_Color 
-- Foreround_Color 
-- Title_Color 
-- Border_Color 
-- Highl ight_Color 


-- Standby Warning Color Scheme 


[ Magenta_Background] 

[ Light_Green_Foreground] 
[Bright_White_Foreground] 
[Yel low_Fo re ground] 

[ Yel low_Foregr ound ] 


-- Background_Color 
-- Foreround_Color 
-- Title_Color 
-- Border_Color 
-- Highlight_Color 


[Color_80x50 ] 
[80] 

[50] 

[ 1 ] 


-- Screen Mode 
-- Number of Columns 
-- Number of Rows 
- - Max_Top_Row 
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[49] 

[79] 

[8] 

[ 12 ] 

[600] 

[ 1 ] 

[4] 

[16] 


- - Max_Bot tom_Row 
-- Max_Column 

-- File Name Length (no extension) 

-- File Name Length (WITH extension 

-- NASCOM Block Length 

-- Bit Size 
-- Nibble Size 
-- Word Size 


{and ' dot ' ) ) 


[15.0] 

[65.0] 

[5.0] 

[65.0] 

[28] 

[ 22 ] 

[30] 

[3] 

[ Fl_Key ] 
[F2_Key] 
[F10_Key] 

[4] 

[ Fl_Key ] 

[ F2_Key ] 
[F3_Key] 

[ F10_Key ] 


- - Lookup_Table_l_Minimum_Pressure 
- - Lookup_Tabl e_l_Maximum_Pr es su re 

Lookup_Table_2_Minimum_Pressure 

Lookup_Table_2_Maximum_Pressure 

-- Max # of command words in a LITE command block 

~~ Max # command words in a LITE command block sent via the PGSC 
-- Totax size of LITE command block, including headers 

-- S_Key_Array size 


-- IC_S_Key_Array size 


[2] -* size of No_Fl_Key_Array 

[F2_Key] 

[ F 1 0_Key ] 


[1] -- F10_Key_Array size 

[ F10_Key ] 


[ . ,<>?/\' ; : [] ~ ! @# $%^&* { ) ] 
[80] 


-- Extra_Chars string for (File ID input) 
-- Length of Blanks string 


[9] -- Max number of Time Specific Commands ir a LITE command block 

[32] -- Max number of commands, period, in a LITE command block (ail Immed, 0 parms) 

[24] Command Menu width (for ALL CFG commadn menus) 


[3] -- Menu_Offset 

[ ] -- Menu_Of f set _St ring 


[15] - - Max_Mnemonic_Length 

[40] -- Descriptor_Length 

[5] -- Uni t s_S t r ing_Max 


[16#50#] -- Byte_IO_Write_Command_Code 

[16# 51#] -- Word_IO_Write_Command_Code 

[ X 6 # 52 # ] -- Byte_IO_Read_Command_Code 

[16# 53#] -- Word_IO_Read_Command_Code 

[16#54#] -- Memory_Wr i t e_Command_Code 

[16# 55#] -- Memory_Read_Command_Code 
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[16#56#] Memory_Fill_Command_Code 

[ 16# 04 # ] -- L I TE_ I C_Nu 1 l_Cmd_F i 1 1 _P a 1 1 e r n_H i gh_By t e 

[ 16#FF#] -- L ITE_IC_Nul I_Cmd_F i 1 1_P at t ern_Low_By t e 

[0] -- Reserved 

[5] -- Show_Menu_Choice_Of f set 

[28] - - Max_Memory_Reads 

[45] - - Memory_String_Length 

[9] -- Max_IO_Rows 

[5] -- Max_IO_Cois 

[9] -- IO_String_Length 

[ 8 ] - - IC_Cornmand_Frame 

[10] -- IC_Memory_Frame 

[53] -- I C_Up 1 i nk_By t e 

[ 1 6 #BEEF# ] -- PDI_Sync_Pattern 

[ 5 ] - - Rows_In_Error_Window 

[2] -- Input_Of f set_Row 

[2] -- Title_Of f set_Row 

[4] -- Bottom_Row_Of f set 

[6] -- Yes_No_Box_Rows 

[86400] -- Seconds_Per_Day 

[3600] -- Seconds_Per_Hour 

[98] - - NASCOM_Header_Sync_By te_I 

[118] - - NASCOM_Header_Sync_By te_2 

[39] -- NASCOM_Header_Sync_Byte_3 

[173] -- Source_Code 

[56] -- Destination__Code 

[7] -- Block_Sequence_Counter 

[9] -- Forma t_ID 

[255] -- User_Header__Source_Circui t_ID 

[15] -- User_Header_Source_Circui t_Sequence_Number 

[ 1 ] - - User_Header_Spare_Bit 

[7] -- User_Header_Block_Sequence_Number 

[143] -- User_Header_Message_Type 

[112] -- User_Header_Destination_Code 

[1] -- User_Header_Spare_Bit_l 

[1] -- User_Header_Spare_Bit_2 

[0] -- User_Header_Full_Block_Flag 

[512] -- User_Header_Data_Length 

[1] -- NAS COM_T r a i 1 e r_F 1 

[ 0 ] - - NASCOM_Trai ler_F2 

[999] - - Command_Data_POCC_Command_Message_Number 

[55] -- Command_Data_Payload_Vehicle_ID 

[1] -- Command_Data_Command_Type 

[4] -- Command_Data_Orbiter_Uplink_Mode 

[ 0 ] - - Test_Command_Command_Type 

[13] - - LITE_Command_Header_SFMDM_Source_ID 

[5] -- LITE_Command_Header_SFMDM_Sync 

[14] -- LITE_Command_Header_SFMDM_IOM_Type 

[3] -- LITE_Comraand_Header_SFMDM_Command_ID 

[0] -- LITE_Command_Header_SFMDM_IOM 

[ 0 ] - - LI TE_Command_H ea de r_SFMDM_Channe l_Numbe r 

[0] -- LITE_Command_Header_Fill 

[30] - - LITE_Command_Word_Count 

[0] -- LITE_Command_Footer_Filler 
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[ 13 ] 

[ 5 ] 

[ 13 ] 

[ 8 ] 

[ 0 ] 

[ 0 ] 

[ 3 ] 

[ 244 ] 


DOL_Command_Header_SFMDM_Source_ID 

DOL_Command_Header_SFMDM_Sync 

DOL_Command_Header_SFMDM_IOM_Type 

DOL_Command_Header_SFMDM_Command_ID 

DOL_Command_Heade r_S FMDM_I OM 

DOL_Command_Header_SFMDM_Channel_Numbe.r 

DOL_Command_Word_Count 

DO L_Command_Fo o t e r _C he c k sum 


[ 13 ] 

[ 5 ] 

[ 0 ] 

[ 10 ] 

[ 8 ] 

[ 0 ] 


DDCS_Command_Header_SFMDM_Source_ID 

DDCS_Command_Header_SFMDM_Sync 

DDCS_Coiranand_Header_SFMDM_IOM_Type 

DDCS__Command_Header_DDCS_Command_ID 

DDCS_Command_Word_Count 

DDC S_Command_Foo t er_F i 1 1 e r 
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